Excelmacros复制循环中的数据，直到空白行命中错误

我正在试图用VBA编写一个macros，它将把表格中的数据从平铺到“Front End”的表格中复制到另一个名为“Raw Data”的表格中。 这两张表是下面的图片

现在我只是处理上面的绿色表格

这里是我的代码到目前为止复制和粘贴到下一个空行的另一张：

Sub transfer() Dim x As Long 'set starting point at row 8 x = 8 Dim BlankFound As Boolean 'defines the sheet the data is being coppied from Dim sourceSheet As Worksheet: Set sourceSheet = ThisWorkbook.Worksheets("Front End") 'defines the sheet the data is being pasted into Dim destSheet As Worksheet: Set destSheet = ThisWorkbook.Worksheets("Raw Data") Do While BlankFound = False 'selects the next row where the 1st column is empty lMaxRows = destSheet.Cells(destSheet.Rows.Count, "A").End(xlUp).Row 'pastes the data from the specified cells into the next empty row 'destSheet.range("A" & lMaxRows + 2).Value = sourceSheet.range("C2").Value destSheet.range("M" & lMaxRows + 2).Value = sourceSheet.range("E2").Value destSheet.range("N" & lMaxRows + 2).Value = sourceSheet.range("E4").Value destSheet.range("P" & lMaxRows + 2).Value = sourceSheet.range("G4").Value destSheet.range("Q" & lMaxRows + 2).Value = sourceSheet.range("C4").Value destSheet.range("O" & lMaxRows + 2).Value = sourceSheet.range("I3").Value destSheet.range("B" & lMaxRows + 2).Value = sourceSheet.range("Bx").Value destSheet.range("L" & lMaxRows + 2).Value = sourceSheet.range("Cx").Value destSheet.range("F" & lMaxRows + 2).Value = sourceSheet.range("Dx").Value destSheet.range("G" & lMaxRows + 2).Value = sourceSheet.range("Ex").Value destSheet.range("I" & lMaxRows + 2).Value = sourceSheet.range("Gx").Value destSheet.range("K" & lMaxRows + 2).Value = sourceSheet.range("Hx").Value destSheet.range("H" & lMaxRows + 2).Value = sourceSheet.range("Nx").Value x = x + 1 If Cells(x, "E").Value = "" Then BlankFound = True end if Loop End sub 

我需要将macros从绿色表中的每一行复制到“原始数据”工作表中的下一个空行，直到macros命中“实际周期”，E列，这是空的。

任何帮助表示赞赏，谢谢！

Answer 1

我会这样做，你发现你的下一个细胞粘贴。

LastRow = sourceSheet.range("E8").end(xldown).row然后

For curRow = 8 to LastRow

或者检查实际的空白，像Do while sourcesheet.range("E" & curRow).value<>""