VBA 序号对应列数据定位组合

yhy95331

现有3个区域数据，每个区域10列，每列可能有数据，也可能没有，可能存在重复（重复取一），第一行为三个区域数据对应的序号，皆为0~9，现想把对应的列数据组合成一个三位数，黄色区域为百位，绿色区域为十位，蓝色区域为个位。如：序号 0对应的三列数据组合，1对应的三列数据组合.......以此类推；如果对应的三列数据有一列为空，则不组合，同时存在则组合，For m = 1 To 10   Cells(x, 32)=Cells(i, m) & Cells(j, m + 10) & Cells(k, m + 20) 以下代码结果出错，求助完善修改一下


Sub 多列定位组合()
   
    Dim i&, x&, j&, k&
   i = 3
    x = 3
    For m = 1 To 10
      Do While Cells(i, m) <> ""
        j = 3
           Do While Cells(j, m + 10) <> ""
            k = 3
              Do While Cells(k, m + 20) <> ""
                 Cells(x, 32) = Cells(i, m) & Cells(j, m + 10) & Cells(k, m + 20)
               
                x = x + 1
                k = k + 1
            Loop
            j = j + 1
        Loop
        i = i + 1
        Loop
        Next
  End Sub

半百

yhy95331

[quote]半百 发表于 2022-11-17 13:22



错误代码处理，最主要的是4个语句。

① On Error GoTo line

② On Error Resume Next

③ Resume line（NEXT）

④ On Error GoTo 0