我正在尝试将工作表“ Output_Setup”中的A列中的所有值复制到值不是“”的“输出”中的B列中。
这是我目前所拥有的:
Sub Copy()
Sheets("Output_Setup").Range("A1:A15000").Copy
ActiveWorkbook.Sheets("Output").Range("B3:B15002").PasteSpecial SkipBlanks:=True, Paste:=xlValues
End Sub
在Output_Setup中,大多数单元格都带有“”,并且只有几百个带有实际值,基本上我希望在输出工作表上过滤掉“”,但是我不能使用简单的过滤器,因为我将使用这些值索引/匹配选择。
任何帮助将不胜感激。
谢谢。
您要执行的操作是复制不包括零长度字符串的值,""
对吗?
这可能起作用:
With Thisworkbook.Sheets("Output_Setup")
.AutoFilterMode = False
With .Range("A1:A15000")
.AutoFilter Field:= 1, Criteria1:= "<>"
.SpecialCells(xlCellTypeVisible).Copy
Thisworkbook.Sheets("Output").Range("B3").PasteSpecial xlPasteValues
End With
.AutoFilterMode = False
End With
未经测试,所以我将测试留给您。
希望这对您有所帮助。
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句