将范围从sheet1复制到sheet2-Java 学习之路

我对VBA很新，但我希望有人可以帮助我 . 这就是我想做的事情;

我在Sheet1中有一个范围（"A4:C500"），其中包含一些空单元格 . 第180行
我想将整个范围复制到Sheet2
之后，如果我在Sheet 1中插入一个新行，例如 . "A24:C24"并且我用例如"A24:C24"填充值，我想首先在Sheet2中的"A24"中插入一个完整的新行（与Sheet1中的新行相同的行）并将所有现有单元格在Sheet2中向下移动1行 . Sheet2中的新行应该复制上面一行中的公式（例如，第24行应该从第23行复制公式）
在Sheet2中插入新行后，我想将Sheet1 "A24:C24"中的值复制到Sheet2 "A24:C24"

关于2.我尝试过使用一些代码;

Sub Copy()
    Ark1.Range("A4:C500").Copy
    Ark2.Range("A4").Rows("1:1").Insert Shift:=xlDown
End Sub

这基本上照顾2 .

我怎样才能得到3.和4.工作？有什么想法让我尝试一下吗？

提前致谢

1 回答

要执行3和4，您可以使用以下代码：

With Ark1
    'insert new row in sheet one
    .Row("24").Insert Shift:=xlDown
    'fill range A24:C24 with values
    .Range("A24:C24").Value = Array("Your", "Values", "Here")
    ' Or if specific cell values (.cells(row, column).value) Array(.cells(1,1).value, .cells(1,2).value, .cells(1,3).value)
End With

With Ark2
    'copy row to retain formulas
    .Row(23).Copy
    'insert new row in sheet two
    .Row(24).Insert Shift:=xlDown
    'get values from sheet one to sheet 2
    .Range("A24:C24").Value = Ark1.Range("A24:C24").Value
End With

P.S . ：正如K.Dᴀᴠɪs在他的评论中提到的那样，有很多文档可以帮助你解决这些问题 . K.Dᴀᴠɪs提供了链接：

回复于 2024-04-26T11:13:48+08:00

将范围从sheet1复制到sheet2

1 回答

相关问题