污网站视频在线观看,国产精品激情偷乱一区二区,caoporn超碰随时会被屏蔽,madou精品一区二区

» 我要實現(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都在上班沒空看嗎？那個吸片 開工了沒看懂啊 這樣？附件改動有點像vb,哈哈Excel.Cells(n, i + 2) = a(i) & " " & a(j) Post by 冬天沒暖氣 (2012-11-23 11:02) Post by Hacker_09 (2012-11-23 13:47) 公式 hahahaha,樓主被秒這個不懂，只會看C/C++~~EXCEL的用EXCEL解決