我目前正在研究一个项目,我需要在一个工作簿中复制目标范围并将其粘贴到另一个工作簿中,省略所有空白单元格(其中有很多)。 到目前为止,我已经设法将它们全部粘贴在一起,但是我没有设法适当地构建它。 For Each c In rngSourceRange.SpecialCells(xlCellTypeVisible)
If Len(c) <> 0 Then
rngDes
使用此代码,它将复制数据并将其粘贴到该名称所属的相应相应选项卡上,但是当我再次运行它以用于下一组数据时,最后的数据。我不知道如何空话贴添加到下一个空行 Dim c As Range, namesRng As Range
Dim name As Variant
With Worksheets("DRIVERS") '<--| reference "DRIVERS" worskh
请帮助我,下面的程序给出了错误的对象不支持此属性或方法 我试图将数据从一个工作簿复制并粘贴到另一个工作簿中,但我尝试了所有我的知识并没有结果。 Private Sub cmbsendmail_Click()
'Application.Visible = False
'ThisWorkbook.Save
'Dim copyd As String
Dim mydata As String