Question

我需要你的帮助。

我有一张工作表可以从另一张工作表中更新。基本上是所有的几个月，行从一个月到一个月，因为同一个月LY消失，明年同一个月是rota。但是，在此工作表上，格式是固定的，具体取决于每月28或31天。

所以我有一个宏要求输入Jan的行号：

 RowSelected1 = InputBox("Enter row Jan")
 Rows(RowSelected1).Select
 Range("B" & ActiveCell.Row & ":DJ" & ActiveCell.Row).Select

但是为了每个月都这样做，我想从RowSelected1（1月）开始计算44行并使用与上面相同的代码复制第44行。

然后重新计算44并复制

等等

你有什么可以帮我的吗？

非常感谢微米。

Answer 1

喜欢这个吗？

Rows(RowSelected1 + 44).Select
Range("B" & ActiveCell.Row & ":DJ" & ActiveCell.Row).Select

Answer 2

Dim i As Integer

RowSelected1 = InputBox("Enter row Jan")
Rows(RowSelected1).Select

For i = 1 to 11
Rowselected1 = Rowselected1 + 44
'Do whatever you want to do using Rowselected1 to refer to the row
Next i

或者你可以在几个月的循环中使用Offset：

ActiveCell.Offset(44,0).Select

宏VBA代码选择一行下面的行X行

2 个答案: