(Tanya)Cara copy beberapa row dan kolom

[scott81]

Hai semua,
Saya mempunyai data sheet seperti ini:
1 2 3 4 5
6 7 8 9 10
11 12 13 14 15

Pertanyaan:
Bisakah saya mengkopi 1,8,15 dan di-paste ke kolom baru?

Trims semua..

 

[James006]

Hai,

Sub CopyMod7()
Dim c As Range
    For Each c In Range("A1:A15")
        If c.Row Mod 7 = 1 Then
        Range("A" & c.Row).Copy Destination:=Range("K" & c.Row)
        End If
    Next c
End Sub

Berharap ini akan membantu ...

 

[Fazza]

Atau formula, mungkin,
=offset($A$1,row()-1,2*(row()-1))

selamat

 

[James006]

Hai,

=IF(MOD(ROW()-1,7)>0,"",OFFSET(A1,MOD(ROW()-1,7),0))

Berharap ini akan membantu ...