excel - .End(xlToRight) 在一个范围内

Question

我很快就想知道是否可以以某种方式更改以下代码段以包含 .End(xlToRight)而不是定义L6 (结果是一样的)。

Sub Test()
Dim LastCol As String

With Worksheets("Sheet1")
    LastCol = .Cells(5, .Columns.Count).End(xlToLeft).Address
    .Range(Range("A5"), LastCol).Copy    

    .Range("B5:L5", Range("B5:L5").Offset(LastRow - FirstRow, 0)).PasteSpecial xlPasteFormulas

    .Range("B6", .Cells.SpecialCells(xlCellTypeLastCell)).Copy
    .Range("B6").PasteSpecial xlPasteValues
End With
End Sub

非常感谢您的帮助:)

编辑:更新了 pdw TonyDallimore(见下面的回复)

托尼，上面的代码是我一直在努力工作的总和。内 with声明，我正在寻找复制第 5 行的内容，并将它们粘贴到第 n 行 - 这是由 columnA 中已经存在的列表定义的。根据您的建议，最后一行将粘贴除顶行 (r5) 之外的所有值，以保持用户的透明度，同时最小化文件大小。
中间位是剩余的“正在进行的工作”，因为 L5 不确定是最远的列。

Answer 1

两个问题
.End(xxx)与 Ctrl+Arrow 相同从键盘开始并停在与当前单元格不同的第一个单元格处。因此，如果您从一个有值的单元格开始，它会在一个没有值的单元格处停止，反之亦然。

从左上角开始使用 xlDown 的麻烦和 xlToRight是它会停在表格中间的空白单元格处。如果中间绝对不能有空白单元格，那很好，但是 XlUp或 xlToLeft从右下角更安全。

问题一

你的问题是.End(xxx).Column将返回 12 并且您不知道如何将其变成字母“L”？

是这样，有很多选择。我认为最容易记住的是
.Cells(6,Columns.Count).End(xlToLeft).Address
将返回“$L$6”。

问题2

是否 .Cells(1000, ColRange)代表右下角的单元格？
.Cells.SpecialCells(xlCellTypeLastCell)可能是一个更简单的选择。