【楼主】Hacker_092012-11-23 10:58
» 我要实现一个EXCEL表格横列和竖列自动组词的功能，但是一直显示子函数或子过程未定义，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++~~
作者：废话多营养2012-11-23 15:00
EXCEL的用EXCEL解决
