我需要減少我的代碼時間。
我可以使用以下行成功復制和粘貼。BS和Inputs是作業表名稱。
BS.Range("A3", BS.Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible).Copy
Inputs.Range("Z3").PasteSpecial xlPasteValues
我試圖在不使用 copy 屬性的情況下進行復制，但它只是使用以下代碼復制第一個單元格。
Inputs.Range("Z3").Value = BS.Range("A3", BS.Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible).Value
另外，我有大量的數字，例如62926080836884040921. 它只是粘貼62926080836880000000。
uj5u.com熱心網友回復：
范圍是您可以復制和粘貼的內容，但是，您不能像使用單元格那樣檢索范圍的值并將其分配給不同的范圍。
在您的代碼中，第一個選項有效，因為您復制了范圍內的任何資料，然后粘貼它，但是當您嘗試將值從一個范圍分配給另一個范圍時，它不起作用；范圍是一組值（范圍內每個單元格的值），這就是它只傳遞第一個值的原因。
基本上，要復制和粘貼，您需要像第一次一樣使用這些功能；或從范圍內的單元格中一一分配值。
uj5u.com熱心網友回復：
請注意，該代碼通過將左側設定為與右側等效來作業。
嘗試使用這種格式：
Sub copypaste()
'''Cell B3's value becomes A2's value
Sheets(1).Range("b3") = Sheets(1).Range("A2")
'''Cells B3-B6 become A2-A5
Sheets(1).Range("b3:B6") = Sheets(1).Range("A2:A5").Value
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/365345.html
上一篇：如何播放波形檔案Excel/Developer/VisualBASIC？
下一篇：Excel宏更改單元格中的字體