Question

怎么用EXCEL的VBA脚本进行行的操作

已知第1行数据为（共3个）：甲、乙、丙
第2行数据为（共4个）：一、二、三、四
要求输出结果为：用第二行每个单元格的数据分别与第一行单元格的数据用->连接而成，即：

一->甲、一->乙、一->丙、二->甲、二->乙、二->丙、三->甲、三->乙、三->丙、四->甲、四->乙、四->丙
输出结果显示在第3行
请问如何编写VBA脚本？请高手解答

Answer 1

Alt+F11，输入以下代码便可：

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

For i = 1 To 100 '获取第一行的单元格数量

If Cells(1, i).Value = "" Then Exit For

a = a + 1

Next i

 

For i = 1 To 100 '获取第二行的单元格数量

If Cells(2, i).Value = "" Then Exit For

b = b + 1

Next i

 

For i = 1 To b

For j = 1 To a

Cells(3, k + 1) = Cells(2, i) & "->" & Cells(1, j)

k = k + 1

Next j

Next i

End Sub

 

 

结果：

 

Answer 2

sub 结合()
dim i,j,k as integer
for i=1 to 3
for j=1 to 4
sheet1.cells(3,k+1)=cells(2,i)&"->"&cells(1,j)
k=k+1

next j
next i
end sub

Answer 3

Sub mysub()
Dim a(1 To 3), b(1 To 4) As String
For i = 1 To 3
a(i) = Cells(1, i)
Next
For i = 1 To 4
b(i) = Cells(2, i)
Next
k = 1
For i = 1 To 4
For j = 1 To 3
Cells(3, k).Value = b(i) + "—>" + a(j)
k = k + 1
Next
Next
End Sub

Answer 4

for c2=1 to 4
for c1=1 to 3

cells(3, (c1-1)*4+c2) = cells(2, c2) & "->" & cells(1, c1)

next c1
next c2

Answer 5

For i = 1 To 3 '第一行
For j = 1 To 4 '第二行
Cells(3, (i - 1) * 4 + j) = Cells(2, j) & "->" & Cells(1, i)
Next j
Next i

Answer 6

怎么你们全能把代码贴上来！为什么我贴一次和一次呀！百度！我和你有深仇大恨么？！