复制范围内非空白单元格的最后 20 列

Question

我正在为 VBA 中的 excel 编写宏。宏正在通过网络查询收集 table 数据。来自 xscores.com 的足球数据为 tables（例如一个联赛）http://www.xscores.com/soccer/tables/england/premier_league/2014-2015/l/4/5 一切都像魅力一样运作，除了一件事。首先这是我有问题的代码部分 http://pastebin.com/HKTT6Paw

这是 W D L 内容的一部分。 Web 查询正在收集整个 table。它应该收集 10 个家庭、10 个客场和 20 个总计（即 40 个单元格）。但在一些联赛中（由于延迟比赛）收集 11 个主场或 12 个客场或类似的，空白单元格。我只需要总计范围内的前 5 列。我解决这个问题的想法是获得一些范围，检查范围内最后填充的列以及从最后填充的列收集该列和该列之前的 19 个（范围内的单元格）。得到总计（总计总是 20 场比赛）。并将其粘贴到 sheet 的其他部分。宏中是否有解决方案来检查最后填充的列并获取最后 20 个带有单元格范围的填充列？（在此示例中，范围为 BR4:CL23）或者如果有人有更好的解决方案，可以提供一些免费建议。提前致谢。

Answer 1

此宏会将 Activesheet 的最后 20 列复制到 Sheet2 单元格 A1:

Sub Kolumn()
    Dim r As Range, nLastColumn As Long
    ActiveSheet.UsedRange
    Set r = ActiveSheet.UsedRange
    nLastColumn = r.Columns.Count + r.Column - 1
    Range(Cells(1, nLastColumn - 19), Cells(1, nLastColumn)).EntireColumn.Copy Sheets("Sheet2").Range("A1")
End Sub

复制范围内非空白单元格的最后 20 列

Copy last 20 columns with non-blank cells in range

excel

vba