Question

我正在使用此代码（与使用不同工作表中的范围计算变量的代码结合使用 - 这些计算工作完美）。然后我使用这个“with 语句”切换到我想要打印值的工作表。

我正在尝试将值打印到第一个空白行（我已经检查过，该行是空白的）。但是，没有信息填写到单元格中 - 它们保持空白。

 With Sheets("Reconciliation")
                            Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = E
                            Range("A" & Rows.Count).End(xlUp).Offset(0, 1).Value = Str
                            Range("A" & Rows.Count).End(xlUp).Offset(0, 2).Value = Min
                            Range("A" & Rows.Count).End(xlUp).Offset(0, 3).Value = Max
                            Range("A" & Rows.Count).End(xlUp).Offset(0, 5).Value = Sea
                            Range("A" & Rows.Count).End(xlUp).Offset(0, 6).Value = Mat
                        End With

Answer 1

为了简单起见，试试这个：

Dim lastRow as Long
With Sheets("Reconciliation")
    lastRow = .Range("A1").Cells(.Rows.Count,1).End(xlUp).Row
    .Range("A1").Cells(lastRow+1,1).Value = E
    .Range("A1").Cells(lastRow+1,2).Value = Str
    .Range("A1").Cells(lastRow+1,3).Value = Min
    .Range("A1").Cells(lastRow+1,4).Value = Max
    .Range("A1").Cells(lastRow+1,6).Value = Sea
    .Range("A1").Cells(lastRow+1,7).Value = Mat
End With

VBA尝试将值打印到最后一行

1 个答案: