我目前正在研究一個項目,我需要在一個工作簿中複製目標範圍並將其粘貼到另一個工作簿中,省略所有空白單元格(其中有很多)。 到目前爲止,我已經設法將它們全部粘貼在一起,但是我沒有設法適當地構建它。 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