无法在dynamic非空单元上操作

我必须从sheet1到sheet2的数据进行sorting，引用列A中的非空单元格。 和

我已经写了如下代码：

Sub polo() Dim lastrow As Long lastrow = Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row j = 2 For i = 1 To lastrow If Sheets("Sheet1").Cells(i, 1).Value = "" Then Sheets("Sheet2").Cells(j, 2).Value = Sheets("Sheet1").Cells(i, 1).Offset(, 1).Value Sheets("Sheet2").Cells(j, 4).Value = Sheets("Sheet1").Cells(i - 1, 2).Value j = j + 1 End If Next i End Sub 

但问题是，我得到的结果如表2 D列。 我想要的结果如E栏所示

请帮忙。

Answer 1

试试这个版本：

 Sub polo() Dim lastrow As Long Dim sTemp as String lastrow = Sheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row j = 2 For i = 1 To lastrow If Sheets("Sheet1").Cells(i, 1).Value = "" Then Sheets("Sheet2").Cells(j, 2).Value = Sheets("Sheet1").Cells(i, 1).Offset(, 1).Value Sheets("Sheet2").Cells(j, 4).Value = stemp j = j + 1 Else stemp = Sheets("Sheet1").Cells(i, 2).Value End If Next i End Sub