1樓：匿名使用者
sub 格式轉換()
dim arr1(), arr2, arr3
dim arr(0 to 251), arr4(0 to 251)
dim i as byte
dim j as byte
dim str as string
i = cells(rows.count, 1).end(3).row
redim arr1(0 to i - 1)
for j = 0 to i - 1
arr1(j) = worksheetfunction.asc(cells(j + 1, 1))
next
j = 0
arr2 = join(arr1, ",")
arr3 = worksheetfunction.transpose(split(arr2, ","))
range("b1").resize(ubound(arr3, 1)) = arr3
for i = 1 to ubound(arr3)
arr(arr3(i, 1)) = arr3(i, 1)
next
for i = 0 to 251
if arr(i) = "" then arr4(j) = i: j = j + 1
next
range("c1").resize(252, 1) = worksheetfunction.transpose(arr4)
end sub
注意，分隔號必須是逗號，半形全形無所謂
2樓：匿名使用者
用，把資料分開，然後用offset把他們整到一列，沒有出現的數也可以通過函式找出來
在EXCEL中怎麼把第一列與第二列裡的數相乘，結果放在第三列
首先，在空白輸入公式，如圖f2單元格輸入公式 a2 c2 把公式拉下來。第二步，專選擇f列整列 編屬輯 複製 選擇性貼上 複製 數值。第三步，在d2單元格輸入公式 f2 把公式拉下來。第四步，選擇d列整列 編輯 複製 選擇性貼上 複製 數值。第五步，選擇d列整列 編輯 查詢 ctrl f 替換 查詢...
在excel中怎麼把一列同時乘上100，要求放在原位置
在一空單元格輸入100，再點該單元格 複製 選中要改的區域 選擇性貼上 乘 把原來位置的資料移動到別處 然後在這裡鍵入計算公式 在空白位置 輸入100 然後複製100，再選中要乘100的資料區域，滑鼠右擊選擇 選擇性貼上，看到 的對話方塊，在運算中點乘法就ok了。我昨天剛學的。嘻嘻 在excel中如...
如何在EXCEL表中把一列分成兩列
一 單列資料拆分 步驟一 在下圖中，首先看到a列算上姓名有80行資料。要是拆分的話，感覺拆分成8列 10行資料比較合適。那麼在後面選擇一個單元格d1，往右輸入8個姓名，然後d2單元格輸入a2 因為第一個姓名在a2單元格 往右填充到a9，d3單元格輸入a10，往右填充到a17，然後選中d2到k4單元格...