vba excel复制到另一个工作表

Question

我想就以下 2 个问题寻求帮助：

首先，

我有 Sheet1，它循环并从网站获取不同的单元格值

B68、B69、B67、A61、D85 和 B73，我想写 VBA 将这些值按顺序复制到 Sheet2 中

A1、B1、C1、D1、E1、F1

但是使用我当前的代码，如果 Sheet1 任何单元格为空，它将移动复制的单元格 (up(End(xlUP)，我需要使用下一行的每组数据创建，无论值如何，甚至一些复制的单元格都是空的。 ..

第二，

添加条件，每次Sheet1中的D85为空时，它将从单元格D86复制值，无论D86的值...

 DoEvents

    'Copy to Another sheet

    With Worksheets("Sheet2")
        .Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = ws.Range("B68")
        .Range("B" & Rows.Count).End(xlUp).Offset(1, 0) = ws.Range("B69")
        .Range("C" & Rows.Count).End(xlUp).Offset(1, 0) = ws.Range("B67")
        .Range("D" & Rows.Count).End(xlUp).Offset(1, 0) = ws.Range("A61")
        .Range("E" & Rows.Count).End(xlUp).Offset(1, 0) = ws.Range("D85")
        .Range("F" & Rows.Count).End(xlUp).Offset(1, 0) = ws.Range("B73")


    End With

Answer 1

代码在Sheet2 中查找UsedRange 的最后一行，即使某些单元格为空。然后它将数据从ws 表复制到Sheet2。

Dim des_ws As Excel.Worksheet

Set des_ws = ActiveWorkbook.Worksheets("Sheet2")

LastRow = des_ws.UsedRange.Rows(des_ws.UsedRange.Rows.count).row + 1

With des_ws
    .Range("A" & LastRow) = ws.Range("B68")
    .Range("B" & LastRow) = ws.Range("B69")
    .Range("C" & LastRow) = ws.Range("B67")
    .Range("D" & LastRow) = ws.Range("A61")
    If ws.Range("D85") = "" Then
        .Range("E" & LastRow) = ws.Range("D86")
    Else
        .Range("E" & LastRow) = ws.Range("D85")
    End If
    .Range("F" & LastRow) = ws.Range("B73")
End With