1 2 3 4 5 6 7 8 9 10
|
I = I + 1: ReDim Tbl(1 To 2, 1 To 8)
Tbl(1, 1) = Range(Cel.Offset(4), Cel.Offset(4, 6)).Offset(, -14).Address
Tbl(1, 2) = Range(Cel.Offset(4), Cel.Offset(4, 6)).Offset(, -7).Address
Tbl(1, 3) = Range(Cel.Offset(4), Cel.Offset(4, 6)).Address
Tbl(1, 4) = Range(Cel.Offset(4), Cel.Offset(4, 6)).Offset(, 7).Address
Tbl(1, 5) = Range(Cel.Offset(4), Cel.Offset(4, 6)).Offset(, 14).Address
Tbl(1, 6) = Range(Cel.Offset(4), Cel.Offset(4, 6)).Offset(, 21).Address
Tbl(1, 7) = Range(Cel.Offset(4), Cel.Offset(4, 6)).Offset(, 28).Address
Tbl(1, 8) = Range(Cel.Offset(4), Cel.Offset(4, 6)).Offset(, 35).Address |
Partager