1樓：匿名使用者
function splitab(a, b) as collection
'將1234|3423 ， abcd|ecw拆成1234，abcd；1234，ecw；3423，abcd；3423，ecw對，存放在一個集合中
dim arr1 as variant, arr2 as variant
dim i as long, j as long, r as long
arr1 = split(a, "|")
arr2 = split(b, "|")
set splitab = new collection
for i = 0 to ubound(arr1)
for j = 0 to ubound(arr2)
splitab.add array(arr1(i), arr2(j))
next j
next i
end function
sub test()
dim k as long, r as long, i as variant
dim ab as collection
dim sht as worksheet, dsht as worksheet
set sht = sheet1 '源資料工作表
set dsht = sheet2 '拆分後資料存放的工作表
k = 1 '拆分後資料存放的工作表，起始行
for r = 1 to 100 '源表a1:b100 資料區域
set ab = splitab(sht.cells(r, 1), sht.cells(r, 2))
for each i in ab
dsht.cells(k, 1) = i(0)
dsht.cells(k, 2) = i(1)
k = k + 1
next i
next r
end sub
2樓：太極健
你想怎麼拆分？沒有看懂你說的是什麼呢，一行變兩行？還是說有｜的就分兩行？
3樓：姓王的
沒看明白，就是簡單將1行變成2行嗎？
求vba大神幫忙修改一下。
4樓：姓王的
沒人能幫你，這麼多的控制元件，光從**搞不清是什麼用途，除非你把檔案發來。（可發到我的郵箱，個人資料裡找）
大神們給解決一下哈：如何修復cannot load m3u8: crossdomain access denied:error #2048 20
5樓：匿名使用者
cannotloadm3u8:crossdomainaccessdenied:error#2048無法載入m3u8：跨域訪問被拒絕：錯誤2048
6樓：匿名使用者
點開始 - 執行 - 輸入msconfig ----開始 - 穿上「kugoo」禁用該軟體的啟動項（即刪除複選標記在前面，以確定該行），也不會再發生它。
kugoo've只是看著很多人都遇到過這個問題。
有一個辦法，你試試：kugoo開啟安裝目錄下，命名為kugoo。 xml檔案可以被刪除，以解決這個問題。
關於excel求差的問題，求大神幫忙用vba**，解決一下， 50
7樓：激舞傳奇
在 worksheet.change 中加入以下**便可實現你要的效果：
動畫效果：
求大神翻譯一下這個韓國地址,求大神給翻譯一下這個韓國地址
地址如上,建議遇到類似情況,下個翻譯軟體,方便快捷 望採納 老鐵,你先發一下地址哇 求大神給翻譯一下這個韓國地址 2 15 8,seongnam daero 1210beon gil,sujeong gu,seongnam si,gyeonggi do,republic of korea 大韓 京畿...
求c語言大神幫忙，解決一下這道題
include main 宣告結構變數和結構指標,並初始化 struct human x p x 利用結構指標顯示結構中的資料 cout p name p name 符為p分配記憶體 p new human 從鍵盤上為p指向的結構物件賦值 cout p name cin p name cout p ...
求英語大神解答一下，求英語大神解答一下！
becad 1 lunar 2 secret 3 cultures 4 from 5 studied 6 natural 7 winter 8 working 9 invention 10 feet 求英語大神解答一下 求英語大神解答一下！250 例5 seen from the top of th...