小编Qui*_*ver的帖子

我试图循环遍历非连续数据 - 基本上循环遍历所有有价值的单元格,Range("K:M")考虑到数据之间可能存在一些空行,我需要跳过并继续前进并将3个单元格合并为1在Range("H4").

尝试了不同的方法,但每次它击中空行停止.下面将更像是一个无限循环,它可以满足我的需求,但是当没有更多数据时,无法在某些时候突破.

Sub GenerateStyleFabricColourV2()
        Dim srcData As Range
        Dim RowNum As Long
        RowNum = 4
        Set srcData = Range("K:M")
        If Not IsEmpty(srcData.Value) Then
          Do While IsEmpty(RowNum) = False
            Cells(RowNum, 8).Value = Cells(RowNum, 11).Value & Cells(RowNum, 12).Value &  Cells(RowNum, 13).Value
            RowNum = RowNum + 1
          Loop
        End If
        Range("H4").Select
        Range(Selection, Selection.End(xlDown)).Select
     End Sub