Question

EXCEL 嵌套循环宏语句

初始有两列表格如下
X1 Y1
X2 Y2
X3 Y3
希望通过宏语句实现如下结果
X1 Y1
X1 Y2
X1 Y3
X2 Y1
X2 Y2
X2 Y3
X3 Y1
X3 Y2
X3 Y3
求解？？？？？？

Answer 1

这样试试吧

Sub 测试()
    Dim n As Integer
    Dim i As Integer
    Dim a As Integer
    a = 1
    For n = 1 To 3
        For i = 1 To 3
            Cells(a, 1) = "X" & n
            Cells(a, 2) = "Y" & i
            a = a + 1
        Next i
    Next n
End Sub

Answer 2

option base 1
sub test()
dim Arr,Brr,Crr(),i%,j%,jL as long
jl=cells(rows.count,1).end(3).row
arr=[a1].resize(jl,1)
jl=cells(rows.count,2).end(3).row
brr=[b1].resize(jl,1)
jl=0
for i=1 to ubound(arr,1)
     for j=1 to ubound(brr,1)
          jl=jl+1
          redim preserve crr(2,jl)
          crr(1,jl)=arr(i,1)
          crr(2,jl)=brr(j,1)
      next j
next i
[c1].resize(jl,2)=application.TRANSPOSE(crr)
msgbox "处理完成！"
end sub

Answer 3

K=1
FOR I=1 TO 3
FOR J=1 TO 3

RANGE("A"&K)=RANGE("X"&I)

RANGE("B"&K)=RANGE("Y"&J)
K=K+1

NEXT

NEXT