1樓：匿名使用者
試試巨集吧
sub 分列()
dim arr, brr, i, k, j, t
arr = range("a1:a" & [a65536].end(xlup).row)
j = 1
for i = 1 to ubound(arr)
brr = split(arr(i, 1), " ")
for k = 1 to len(arr(i, 1))
if mid(brr(0), k, 1) = "(" or mid(brr(0), k, 1) = "（" then
t = k
dok = k + 1
loop until mid(brr(0), k, 1) = ")" or mid(brr(0), k, 1) = "）"
if j = 1 then
[d1] = mid(brr(0), t + 1, k - t - 1)
else
[c65536].end(xlup).offset(0, 1) = mid(brr(0), t + 1, k - t - 1)
end if
else
if j = 1 then
[c1] = mid(brr(0), k, 1)
[e1] = brr(1)
else
[c65536].end(xlup).offset(1, 0) = mid(brr(0), k, 1)
[c65536].end(xlup).offset(0, 2) = brr(1)
end if
j = j + 1
end if
next
next
end sub
在excel中按alt+f11》彈出的視窗中 選單欄中點插入》模組》把**複製到下方空白處》右上角關閉》回到excel中》執行巨集 分列。
有不明白的地方繼續追問~
2樓：無心辰辰
如果方便發源檔案給我看看
如何將資料分列匯入excel
在excel裡，可以很輕鬆地為資料分列。以文字檔案匯入excel為例，如果文字檔案裡有多行資料，各行資料格式相同，很容易通過excel分列。方法如下 1，開啟excel，直接開啟excel程式 在excel裡開啟目標文字檔案。2，此時excel會自動啟動文字匯入嚮導。依據嚮導，按原檔案資料型別，選擇...
excel怎麼將15分列成1和5後再求和的函式
使用vba編輯如下 複製到公用模組中，可在sheet中使用函式。function sum no myrange as range on error resume next sum no 0 dim i as single for i 1 to len myrange sum no sum no mi...
怎樣在Excel中製作複雜的斜線表頭
1 設定雙線表頭的單元格，要足夠高，足夠寬。2 插入 形狀，畫直線，注意直線一端必須與角點重合，另一端點必須與單元格框線緊密連線。此時兩條線才會隨單元格變化而變化。3 向裡而輸入文字，按alt 回車 單元格內換行，然後用空格調整相對位置。選中右鍵單元格格式，邊框，具體自己設定吧。1.首先要調整好做斜...