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 に答える