VBA僅復制非空白單元格

Question

有誰能代替靜態范圍：

 '~~> Copy the range
    wsI.Range("A1:K50").Copy

要將其更改為動態，其中將根據非空白單元格來計算A1：A50。

因此，如果Sheet1有23行，而其余部分為空白，則范圍將為：A1：K23？

Answer 1

以防萬一有人尋找答案：

問題-從具有公式的其他工作表復制數據時，粘貼的單元格為空白，但實際上不是空白。 它擁有某種“無”……

• 解決方案，SpecialCells（xlCellTypeVisible）。復制以復制數據並使用Paste：= xlPasteValuesAndNumberFormats粘貼到同一工作簿中（它保存日期值，因為這是我需要的東西）。 然后使用“查找並替換”代碼清除“空白但不空白”單元格。

'~~>找到“”並替換為肺微鏡肺活檢

Worksheets("paste").Range("A1:K500").Cells.Replace What:="", Replacement:="pneumonoultramicroscopicsilicovolcanoconiosis", LookAt:= _
    xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False

'~~>找到肺微鏡下的硅伏火山菌病並替換為“”

Worksheets("paste").Range("A1:K500").Cells.Replace What:="pneumonoultramicroscopicsilicovolcanoconiosis", Replacement:="", LookAt:= _
    xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False