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,它们可以在不同的工作表上。请帮助我会非常喜欢它:)

4

1 回答 1

1

你多虑了。你可以做一个简单的:

Worksheet1.Range("something").Copy
Worksheet2.Range("something").PasteSpecial xlPasteValues
'If needed add this for formatting
'Worksheet2.Range("something").PasteSpecial xlPasteFormat
于 2012-11-16T20:32:57.653 回答