查找可用数据的第一行和最后一行

Question

我已经设置了一个宏，该宏可以查看另一个工作簿，并复制该工作簿的第一张纸并将其带入原始工作簿。该代码可以正常工作，但是我想添加一些额外的逻辑，这些逻辑可以自动定位可用源数据的第一行和最后一行。目前，我已经设置好了，因此代码可以复制从单元格“ A1”到最后一行的所有内容。但是，我想确保在数据以“ B2”开头的情况下，我希望代码能够识别出这一点并忽略行A，并引入从“ B2”开始直到最后一行的所有内容，并将所有内容粘贴到原始行中从A1单元格开始的工作簿...我希望能画出图画。下面的部分代码：谢谢大家。

If myFile Like "*Import*" then
Set wb = workbooks.open(fileName:=myPath & myFile)
With wb.sheets(1)
lrow = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A1:XFD" & lRow).copy ws4.Range("A1")
end if

Answer 1

我想您可能正在寻找可以使用的UsedRange，例如

Sub testmeout()
    Dim copy_ws As Worksheet, to_ws As Worksheet
    Set copy_ws = Worksheets(1)
    Set to_ws = Worksheets(2)

    ' use range value assignment of equal sizes for instant copy and paste
    ' (no format though)
    Dim copy_rng As Range, to_rng As Range

    Set copy_rng = copy_ws.UsedRange
    Set to_rng = to_ws.Cells(1, 1).Resize(copy_rng.Rows.Count, copy_rng.Columns.Count)
    to_rng = copy_rng.Value

End Sub

您还可以在直接窗口（编辑器中为Ctrl + G）中测试ActiveWorksheet.UsedRange.Address，以在运行之前查看确切的范围。