【樓主】Hacker_092012-11-23 10:58
» 我要實現(xiàn)一個EXCEL表格橫列和豎列自動組詞的功能，但是一直顯示子函數(shù)或子過程未定義，Sub zh() 怎么解決呢？Sub zh() Dim a() As Variant, b As Integer, n As Integer b = WorksheetFunction.CountA(Range("a:a")) ReDim a(b) For i = 1 To b a(i) = Range("a" & i) Next i For i = 1 To b n = 1 For j = 1 To b If i <> j Then cell(n, i + 2) = a(i) & "" & a(j) n = n + 1 End If Next j, iEnd Sub
作者：Hacker_092012-11-23 11:00
都在上班沒空看嗎？
作者：shudalie2012-11-23 11:01
那個吸片 開工了
作者：冬天沒暖氣2012-11-23 11:02
沒看懂啊 這樣？附件改動
作者：pkcswei2012-11-23 11:13
有點像vb,哈哈
作者：Erica_L2012-11-23 11:22
Excel.Cells(n, i + 2) = a(i) & " " & a(j)
作者：Hacker_092012-11-23 13:47
Post by 冬天沒暖氣 (2012-11-23 11:02) Post by Hacker_09 (2012-11-23 13:47) 公式 hahahaha,樓主被秒
作者：ckxdw2012-11-23 14:57
這個不懂，只會看C/C++~~
作者：廢話多營養(yǎng)2012-11-23 15:00
EXCEL的用EXCEL解決
