Question

我有一个家庭工作要做..它是关于将A1细胞复制到B1：B5范围内，并将其他A2复制到范围B6：B11

代码是

Range("A1").Copy Destination:=Range("B1:B5")
Range("A2").Copy Destination:=Range("B6:B11")
Range("A3").Copy Destination:=Range("B12:B17")

等等..我在A单元格中有100个文本，所以我无法一个接一个地手动运行

我想自动运行vba，我试图搜索，但我一无所获。

Answer 1

这对你有好处吗？

Sub Test()
  Dim R1 As Integer, R2 As Integer
  For R1 = 1 To 10
    R2 = R1 * 5 - 4
    Range("A" & R1).Copy Destination:=Range("B" & R2 & ":B" & R2 + 4)
  Next R1
End Sub

Answer 2

试试这个：

Sub copyTest()
Range("b:b").Clear
Range("b1:b5") = Range("a1")
Range("a2").Select
While ActiveCell <> ""
Range(Cells(Range("b1000").End(xlUp).Offset(1, 0).Row, 2), _
Cells(Range("b1000").End(xlUp).Offset(6, 0).Row, 2)) = ActiveCell
ActiveCell.Offset(1, 0).Select
Wend
End Sub

从A1复制到范围B1：B5并对其余的单元格执行相同操作

2 个答案: