如何使用VBA循环数据空行？

Question

I am trying to loop through non-contiguous data - basically loop through all the cells that have value in Range("K:M") taking into consideration that between the data there might be some empty rows and I will need to skip and move on and merge the 3 cells into 1 in Range("H4") .

Tried different approaches but every time it hits the empty row it stops. Below will be more like an infinite loop that does what I need but can't work how to break out at some point when there is no more data.

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

Answer 1

IsEmpty refers to a cell that may or may not have a value (ie blank or not blank). It isn't intended to do anything with an integer.

Sub GenerateStyleFabricColourV2()
    Dim srcData As Range
    Dim rowNum As Long, lastRow As Long

    With Worksheets("sheet2")
        lastRow = Application.Max(4, _
                    .Cells(.Rows.Count, "K").End(xlUp).Row, _
                    .Cells(.Rows.Count, "L").End(xlUp).Row, _
                    .Cells(.Rows.Count, "M").End(xlUp).Row)
        With .Cells(4, "H").Resize(lastRow - 4 + 1, 1)
            .FormulaR1C1 = "=rc[3]&rc[4]&rc[5]"
            .Value = .Value2
        End With
    End With
End Sub

Answer 2

Sub GenerateStyleFabricColourV2()
    Dim srcData As Range, rcell As Range

    Set srcData = ThisWorkbook.Sheets("Sheet1").Range("K4:K" & ThisWorkbook.Sheets("Sheet1").Cells(Sheet1.Rows.Count, "K").End(xlUp).Row)
    For Each rcell In srcData.Cells
        rcell.Offset(0, -3).Value = rcell.Value & rcell.Offset(0, 1).Value & rcell.Offset(0, 2).Value
    Next rcell

 End Sub

This is pretty straight forward. I like looping through the one column and using offset. I might be over simplifying it though.

Answer 3

This simple code is very easy & effective too,,

For a = 1 to lastrow

if cells(a,1) = "" then

goto lastline

Here you can put your codes

lastline:

Next a