ML089

¦^´_ 2# peter95

Sub Macro1()
'
' ¿ï¨ú½d³ò¡ACTRL+G¡A«ö ¯S®í¡A¿ï¾Ü ±`¼Æ¡A½T©w
'

'
    Range("A2:D999").Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    Selection.ClearContents
End Sub

ML089

¦^´_ 4# peter95

Sub Macro1()
'
' ¿ï¨ú½d³ò¡ACTRL+G¡A«ö ¯S®í¡A¿ï¾Ü ±`¼Æ¡A½T©w'
'
    'Range("A2:D999").Select
'§ï¬°
    Range("B2:D999").Select
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    Selection.ClearContents
End Sub

¤W­zµ{¦¡½X§¹¥þ¨Ï¥Î ¥¨¶°¿ý»s¡A§A¥u­n¶}±Ò¥¨¶°¿ý»s ¤â°Ê¾Þ§@¤@¹M ¦AÃö³¬¿ý»s¡A§A´N¥i¥H§Q¥Î¿ý»sªº¥¨¶°µ{¦¡½X¥h§ï¼g¡C

§A¥i¥H¸Õ¸Õ¤U¦C¾Þ§@¤Î¿ý»s¥¨¶°
' ¿ï¨ú½d³ò¡ACTRL+G¡A«ö ¯S®í¡A¿ï¾Ü ±`¼Æ¡A½T©w'

ML089

·s¤â VBA ¤Jªù±`¨£°ÝÃD
http://forum.twbts.com/thread-10449-1-1.html

ML089

¦^´_ 8# peter95

23¡A³o¬O¿ý»s¥¨¶°¥X¨Óªº¡A¥i¯à¬O«ü¤U¦C4ºØ«¬ºA³£¥]§t

XlSpecialCellsValue constants  / Value
xlErrors /16
xlLogical / 4
xlNumbers / 1
xlTextValues / 2