首页 文章

Excel VBA单元格范围复制子计数

提问于
浏览 次
0

程序员大家好，我在Excel中遇到VBA编码问题 . 我的问题是将数据从VBA中的单元格范围复制到VBA中的其他单元格范围 . 这是我有的子程序的例子......

Public Sub CopyRange(ByVal pv_ws_source_worksheet As Worksheet, _
              ByVal pv_ws_destination_worksheet As Worksheet, _
              ByVal pv_rg_source_range As Range, _
              ByVal pv_rg_destination_range As Range)

    Dim Cell_Range As Range
    Dim CommaSplit() As String
    Dim ColonSplit() As String
    Dim i As Integer
    Dim j As Integer

    CommaSplit() = Split(pv_rg_destination_range.Address, ",")

    For Each Cell_Range In pv_ws_source_worksheet.Range(pv_rg_source_range.Address)
        pv_ws_destination_worksheet.Range(CommaSplit(i)).Value = Cell_Range.Value
        i = i + 1
    Next

End Sub

该子目前可以将像B17：B24这样的细胞范围复制到B25，B18，B22，B21，B11，A12，A2，C2等个体细胞 . 我需要对此子修改，以便它可以将单元格区域复制到其他单元格区域 . 这个想法的一个例子是B24：B30到C12：C17，它们可以在不同的纸张上 . 请帮忙，我会非常感激:)

excel vba ms-office

1 回答

  • 1

    你是在思考这个问题 . 你可以做一个简单的事情：

    Worksheet1.Range("something").Copy
Worksheet2.Range("something").PasteSpecial xlPasteValues
'If needed add this for formatting
'Worksheet2.Range("something").PasteSpecial xlPasteFormat
    回复于

相关问题