1樓：
這個實現起來不難，主要是程式的控制，試試下面的**：
sub zz()
dim ar, a(), b(), n&, t
a = array(3, 7, 11): b = array(6, 10, 15)
ar = sheets(1).[a1].currentregion.value
redim c(1 to (ubound(ar) - 1) * (ubound(b) + 2), 1 to 1)
for i = 2 to ubound(ar)
n = n + 1
c(n, 1) = ar(i, 1) & " " & ar(i, 2)
for j = 0 to ubound(a)
n = n + 1
for jj = a(j) to b(j)
c(n, 1) = c(n, 1) & trim(ar(1, jj)) & "=" & ar(i, jj) & ","
next
next
t = split(c(n, 1), ",")
c(n, 1) = join(array(t(0), t(1), t(2), t(4), t(3)), ",")
next
workbooks.add 1
[a1].resize(n) = c
end sub
2樓：姓王的
將什麼格式轉為成什麼格式，不說清楚沒法回答
excel vba 怎麼把日期格式轉換成數值
3樓：我的王是金閃閃
=a1&text(b1,"e/m/d")
vba：
4樓：匿名使用者
為什麼要用vba呢？
excel vba中如何將日期轉換為數字進行計算？
5樓：復仇之牙
用datevalue試試
附件裡有示例
sub ff()
dim a, b, c
for i = 1 to 2
a = cells(i, 1)
b = cells(i, 2)
c = cells(i, 3)
if datevalue(c) - datevalue(a) > -1 and datevalue(c) - datevalue(b) >= 0 then
cells(i, 4) = "y"
end if
next i
end sub
excel中vba**中的日期與數字怎麼拼到一起轉成文字格式？
6樓：眯住眼串針
sub test()
myrow = range("a65536").end(xlup).row
for i = 1 to myrow
range("c" & i) = format(range("a" & i), "yyyymmdd") & format(i, "000")
next
end sub
7樓：匿名使用者
format(range("a" & i).value,"yyyymmdd") & format(i,"000")
如何用vba將excel中的資料轉化成word文件 100
8樓：nice山東草原狼
步驟一、先進入excel**，然後選中需要匯入到word文件中的區域，按下 ctrl+c 複製;
步驟二、開啟word，然後選擇選單欄的「編輯」中的「選擇性貼上」，在「形式」下面選中「microsoft office excel 工作表 物件」然後確定;
此時，就已經把編輯好的excel**匯入到word中了，有的人這時肯定會說，這還不是和word中**沒什麼卻別啊!確實，就這樣用肉眼看，根本就看不錯這個**和word中做的**有什麼不一樣之處;
區別肯定是有的，不信你雙擊**看看，會是什麼效果，沒錯把，匯入的**和excel中的**一模一樣，當然，這個**也可以自由拖動它的長和寬，還可以運用excel中的公式呢!
9樓：一支穿雲箭
word中合併郵件功能，能轉換成word文件
如何用EXCEL的VBA來實現根據條件篩選結果
陸不大 這個問題我也沒做過,臨時找了兩個函式,結合起來能解決,也許不是最好的辦法,但能解決總是好的,呵呵 做出的樣表如下 a b c d 1 姓名 班級 班級 班級 2 1222 2323 3434 3 姓名 班級 數學成績 語文成績 4 張三 1222 78 85 5 李四 2323 79 83 ...
如何在excel中用巨集（VBA）實現VLOOKUP的功能
慶年工坊 function myvlookup val,rg as range,n as integer,f as boolean arr rg if f then for i ubound arr to 1 step 1if val arr i,1 thenmyvlookup arr i,n en...
請問如何用excel的VBA做出，從1 20中任取數的所有組合，總共是125970種，求高手支招，萬謝
如果你只是需要結果的話，可以用函式 combin 20,8 直接求的結果，如果真是要用vba實現的話按照 tat蘿蔔說的做就行了，完善如下 sub zuhe dim times as double for i1 1 to 13 for i2 i1 1 to 14for i3 i2 1 to 15fo...