2

これは私がこれまでに持っているものです。セルのグループをコピーし、その値を次に利用可能な空のセルに貼り付けるには、サブが必要です。私が得ているエラーは、最初に利用可能なセルを選択することです。何かご意見は？

Dim workline As Integer
Sub Test()
With ActiveSheet
workline = 11
    While .Cells(workline, 2) <> Empty
    workline = workline + 1
    Wend
End With
    Range("B3:CH9").Select
    Selection.Copy



     range(workline,2) .Select



Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.CutCopyMode = False
 Message = MsgBox("Data copied succesfully", vbInformation + vbOKOnly, "Aecon Mining")
End Sub`
4

1 に答える 1

4

Excelでテストされていませんが、動作するか、少なくとも正しい方向を示しています: 

Range("B3:CH9").Copy
Range("B2").end(xlDown).offset(1,0).paste 'first available cell

そして、それらの使用をやめてください。どこでも選択して選択します。それらは時間の無駄です。

于 2012-12-17T20:29:52.363 に答える