我有下面的代碼並且工作正常,但我只想使用值複製單元格。我在中間有空白數據,因爲我將刪除這些數據也無法複製。只選擇值爲VBA的單元格
Sub FindAgain()
'
' FindAgain Macro
'
Dim Ws As Worksheet
Dim LastRow As Long
AC = ActiveCell.Column
Set Ws = Worksheets("Sheet1")
LastRow = Ws.Cells(Rows.Count, "B").End(xlUp).Row
Cells.Find(What:="Scenario", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Select
Range(ActiveCell, Cells(LastRow, AC)).Select
End Sub
任何想法如何我可以更好地寫它?用循環也許?謝謝!
你看:http://stackoverflow.com/questions/5338725/copy-a-range-of-cells-and-only-select-cells-with-data或http://stackoverflow.com/questions/13351245/copy-a -range-of-cells-and-only-select-cells-with-data-and-just-the-value-not-the- 這兩個都顯示你可以使用的例子。 –
我認爲這可以幫助!我可能沒有正確檢查。 –