Sub clearData ()
'Freies Datenmakro verursacht von Andrew Swingewood (16/07/2010)
Schwaches MySheets
I als lang verdunkeln
J als lang verdunkeln
R als lang verdunkeln
MySheets = Reihe („CH1“, „Ch2“, „CH3“, „CH4“, „CH5“, „CH6“, „CH7“, „CH8“, „CH9“, „CH10“, „CH11“, „CH12“)
Für i = 0 bis 11
Für J = 2 bis 22
Wenn (IsNumeric (Blätter (MySheets (i)). Zellen (J, 1)) und (Blätter (MySheets (i)). Zellen (J, 1) <> 0)) Dann
Für r = 2 bis 9
Blätter (MySheets (i)). Zellen (J, r) = ""
Folgendes r
Beenden wenn
Folgendes J
Zunächst I
Enden-Unterseeboot
|