1樓:
用vba迴圈處理吧,一行行分析。
sub conv()
dim arr
irow = 1
for i = 1 to 4 '四行
arr = split(cells(i, 2), ",") '將b列單元格值分割為陣列
for j = 0 to ubound(arr) '遍歷陣列每個元素
cells(irow, 3) = cells(i, 1)'c列取a列的值
cells(irow, 4) = arr(j) 'd列取陣列中元素
irow = irow + 1 '逐行排列
next
next
end sub
2樓:
excel只有按分隔符分列功能,無分行功能,這個只能自己寫vba迴圈處理
3樓:
sub dsstr()
dim i as long
dim j as long
dim k as long
dim xstr as string
dim ystr as string
j = 0
for i = 1 to 65536
ystr = cells(i, 2)
if len(ystr) = 0 then exit forystr = replace(ystr, ",", ",")k = instr(ystr, ",")
if k = 0 then
j = j + 1
cells(j, 4) = cells(i, 1)cells(j, 5) = cells(i, 2)else
do until k = 0
j = j + 1
xstr = trim(left(ystr, k - 1))ystr = right(ystr, len(ystr) - k)if len(xstr) > 0 thencells(j, 4) = cells(i, 1)cells(j, 5) = xstr
else
j = j - 1
end if
k = instr(ystr, ",")
loop
if ystr <> "" then
j = j + 1
cells(j, 4) = cells(i, 1)cells(j, 5) = ystr
end if
end if
next
end sub
測試見附件,這段**可以完成你需要的,還可以將全形,半形,視為一樣的,分隔開字元段。測試時請先將e,f列的內容清除,再點選按鈕2
4樓:匿名使用者
這個問題你最好去excelhome論壇求助。那裡面各路dx都有,應該可以解決你的問題
5樓:匿名使用者
不懂vba,簡單一點的,b列可以先分列,然後轉置試試
請教EXCEL的函式問題,請教Excel中的函式問題
你的問題描述有點不太清楚,不過大概瞭解你的意思。應該用vlookup函式可以實現這個功能。vlookup sheet2的標題單元格,sheet1的目標矩陣,要引用矩陣中的列數,false sheet2的標題單元格 在你給的例子中就是sheet2的單元格地址,如a1,a2.sheet1的目標矩陣 以你...
請教EXCEL的函式解釋,請教Excel高手,此函式的意義是什麼,麻煩詳細點。
兄弟 函式一般來說只要知道個名稱就行了,當你需要用時,在輸入 函式名稱時按下ctrl a就會出現引數列表,很簡單的,當然如果你能記住的話最好了 仔細看看幫助就行啊。excel的幫助非常詳細的。f1 常用函式if sumif excel中的函式的說明及其詳細的解釋 請教excel高手,此函式的意義是什...
請教excel的if函式的問題,請教一個excel的if函式的問題!
假設資料在a1單元格,則另一單元格寫入公式 if or a1 小 if or a1 中 if or a1 大 或 if a1 3,小 if a1 7,中 大 再或 lookup a1,的頂上是一排字母a,b,c,這個就是列標 的左邊是一豎列的數字1,2,3,這個就是行號列標加上行號就是就是單元格的名...