0

だから私はC4からC10にセルをコピーして貼り付けるこのコードを手に入れました。問題は、同じワークシートに貼り付けられ、2 番目のワークシートに貼り付ける必要があることです。

コードでワークシートを変更する方法がわからないので、誰かが私を助けてくれることを願っています.

コードは次のとおりです。

Sub Save_Click()
Range("C4:C10").Copy
Dim curRange As Range
Dim curCol As Integer: curCol = 7
Dim completed As Boolean: completed = False
Do
    curCol = curCol + 1
    Set curRange = Range(Cells(3, curCol), Cells(9, curCol))


If (WorksheetFunction.CountA(curRange) = 0) Then
   Exit Do
End If
Loop While (Not completed)

curRange.PasteSpecial
End Sub
4

1 に答える 1

0

ワークシート「Iskalnik」については、これまで行ったように、次を使用します。

Sheets("Iskalnik").Range("C4:C10").Copy

ワークシート「Baza」の場合、これの代わりに:

Set curRange = Sheets("Baza").Range(Cells(3, curCol), Cells(9, curCol))

これを使って：

With Worksheets("Baza")
    Set curRange = .Range(.Cells(3, curCol), .Cells(9, curCol))
End With

curRange の問題は、キーワードRangeとCellsキーワードがすべてシートを参照する必要があることです。これWith ... End Withは、そのための便利な方法です。

于 2013-08-06T16:09:52.160 に答える