1樓:匿名使用者
將如果**複製到vba裡,執行前一定要做好備份,只要執行一次。
sub test()
dim num() as variant '儲存所有數字的陣列dim i, j as integer 'i為行,j為列dim x as long '陣列元素個數'初始化
x = 0
i = 2
j = 1
'將所有數字讀入陣列num()
do while cells(i, j) <> ""
for j = 1 to 4 step 1redim preserve num(x)num(x) = cells(i, j)
cells(i, j) = ""
x = x + 1
next
i = i + 1
j = 1
loop
'將所有數字重寫入5行
x = 0
i = 2
j = 1
do while x <= ubound(num)for j = 1 to 5 step 1if x <= ubound(num) thencells(i, j) = num(x)
else
exit do
end if
x = x + 1
next
i = i + 1
j = 1
loop
end sub
2樓:我的王是金閃閃
vba程式設計能做到。不過我現在的電腦沒有巨集。無法驗證。
如何將EXCEL一列資料變成3列?
d1 單元格中輸入 a2 1 選單 工具 巨集 錄製新巨集,設快捷鍵為ctrl a 其它內容不用改 此時,再把a列刪除就ok啦,點此視窗右邊那個 相對引用 一些格子 4,停止錄製巨集 a3 此時游標是停在 b4 單元格的 滑鼠點選 b1 單元格,再按回車三次。5 點選開頭出現的那個小視窗左邊的 停止...
如何將文字放到兩列excel裡面
我們在excel 中抄選中需要拆分襲的列 然後,單擊選單欄的 bai 資料 在下du拉列表中選擇zhi 分列 命令 此時,需要dao3個步驟來完成資料在 中的拆分,文字分列嚮導 3 步驟之 1 我們只需選擇預設的 分割符號 再單擊下面的 下一步 按鈕 然後,繼續在 文字分列嚮導 3 步驟之 2 下面...
如何將Excel的列標題A,B,C改為1,
工具 選項 常規 勾選 r1c1引用樣式 確定 excel上面的列a,b,c怎麼成了1.2.3 2003版 選單 工具 選項 常規 r1c1樣式前的勾去掉 工具 選項 常規 勾選 r1c1引用樣式 確定 回答不容易,希望能幫到您,滿意請幫忙採納一下,謝謝 怎麼把excel裡橫列的a,b,c,d,e,...