在具有不同行数的所有工作表上运行VBA格式代码

Question

VBA noob需要一点帮助。我似乎无法找到解决方案或得到一些工作。

我尽可能地简化它以获得概念验证。

基本思想是格式化一个单元格（A1说）所有边框，将该格式复制到第一张表格中的所有数据（例如A1：C10），然后对后续图纸中的数据执行相同操作。我正在努力的是，后续的工作表都有不同的行数，我尝试将其他工作表格式化为原始的（A1：C10），即使没有数据存在。

非常感谢任何帮助。

Answer 1

您需要的是一个标识任何给定工作表最后一行的变量。例如

LastRow = Worksheets("Sheet1").cells(65000,1).end(xlup).row

现在你可以遍历你的细胞了

for i = 1 to LastRow
  for j = 1 to 3
    Worksheets("Sheet1").cells(i, j)  (apply your formatting)
  next j
next i

Answer 2

您可以使用此VBA代码找到列中的最后一行：

lastrow = Sheets("SheetName").Cells(rows.count,columnnumber).end(xlup).row

将columnnumber更改为您要查找的列的编号，例如A列= 1。