class= " lineNumbers " de
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
|
class= de
clearData " de " codeSnippet813091 d'id= " de Sub de class= ()
'Macro clair de données créé par Andrew Swingewood (16/07/2010)
Faible MySheets
Obscurcir I en tant que longtemps
Obscurcir j en tant que longtemps
Obscurcir r en tant que longtemps
MySheets = rangée (« CH1 », « Ch2 », « CH3 », « CH4 », « CH5 », « CH6 », « CH7 », « CH8 », « CH9 », « CH10 », « CH11 », « CH12 »)
Pour I = 0 à 11
Pour j = 2 à 22
Si (IsNumeric (feuilles (MySheets (i)). Cellules (j, 1)) et (feuilles (MySheets (i)). Cellules (j, 1) <> 0)) Puis
Pour r = 2 à 9
Feuilles (MySheets (i)). Cellules (j, r) = ""
Prochain r
Finir si
Prochain j
Après i
Sous-marin d'extrémité
|
