vba交叉循环的方法

用遍历区域就好，代码如下：

Public Sub 两次组合()

    Dim DQrng As Range, CXrng As Range, XRrng As Range, i As Long

    Set XRrng = Sheets("sheet3").Range("a1")

    For Each DQrng In Range("A1:G1")

        i = 0

        For Each CXrng In Range("A2:G2")

            XRrng.Offset(0, i).Value = DQrng.Value & CXrng.Value

            i = i + 1

        Next

        Set XRrng = XRrng.Offset(1, 0)

    Next

    MsgBox "运行完毕！"

End Sub

刚才看错了，修改了一下。

不可以，一般的循环只能导次嵌套，类似于比如

A循环开始

B循环开始

B循环结束

A循环结束

如果一定要交叉嵌套（一般是不存在的），并且你用的语言支持goto的话，是可以用goto来控制程序逻辑的。

指 建筑施工组织中的流水作业。大交叉指同一施工队在不同的施工段进行作业。小循环指同一施工段由各作业班组先后进行循环作业。 例如2个楼，有钢筋、模板、混凝土三个作业队，他们先后在两个楼上进行作业，在每个楼上就是小循环，大了看就是大交叉。这就是流水作业。可缩短工期。与华罗庚的统筹作业原理相似。目的是减少整个项目的工期。 减少工人窝工。

---