这是我到目前为止所拥有的。我需要一个子来复制一组单元格并将其值粘贴到下一个可用的空单元格上。我遇到的错误是选择第一个可用的单元格。有什么想法吗?

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`

最佳答案

尚未在Excel中进行测试,但可以正常工作,或者至少可以为您指明正确的方向:

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


并停止使用这些.Select和select到处都是,这完全是浪费时间。

关于excel - 如何选择VBA上变量所引用的单元格,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/13921549/

10-09 08:44