仅将包含数据的行复制到另一个工作表上的最后一个空行，同时忽略公式-Java 学习之路

我正在尝试使用主工作表中的数据复制行并将其粘贴到历史记录工作表的最后一行空行中 . 每行将是一个输入，数据从A3：J3之间的单元格开始 . 一些单元格上面有公式，这导致我在主表和历史记录表上找到带数据的最后一行的问题 . 两个表格具有相同的格式 . 这是我得到的：

Sub CopyToAnotherSheet()
Sheets("Master").Range("A3:J50").Copy
Sheets("History").Activate
Dim ws As Worksheet
    Dim rng1 As Range
    Set ws = ActiveSheet
    Set rng1 = ws.Columns(1).Find("*", ws.[a1], xlFormulas, , xlByColumns, xlPrevious)
          rng1.Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

它将复制一个范围并将其粘贴到复制的最后一个范围的末尾 .

1 回答

尝试将 rng1 = 行更改为：

Set rng1 = ws.rows(ws.Columns(1).Find("*", SearchDirection:=xlPrevious, _
    SearchOrder:=xlByRows, LookIn:=xlValues).Row + 1)

回复于 2024-05-05T03:45:51+08:00

仅将包含数据的行复制到另一个工作表上的最后一个空行，同时忽略公式

1 回答

相关问题