[Giúp đỡ]VBA vòng lặp For thay thế từng cột dữ liệu (1 người xem)

[quyenpv]

Mình có 1 bảng tổng hợp vật tư lấy từ 30 Sheet PTVT có dạng PTVT (1), PTVT (2),....PTVT (30) và có Record macro và thêm vòng lặp For như sau

Sub Macro1()
'
' Macro1 Macro
'


'
Dim index As Long


    Sheets("BTH_VT").Select
    Range("F6:F139").Select
    Selection.AutoFill Destination:=Range("F6:AI139"), Type:=xlFillDefault
    Range("F6:AI139").Select

For index = 2 To 30
    Columns("G:G").Select
    Range("G4").Activate
    Selection.Replace What:="(1)", Replacement:="(" & index & ")", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 Next index


End Sub

Vấn đề ở chỗ mình làm chuẩn 1 cột F sau đó kéo Fill hết 30 cột, bây giờ muốn thay đổi bằng Replace giá trị từ cột G đến cột AI bằng chỉ số index của vòng lặp For

Hỏi trong vòng lặp for có cách nào thay đổi cột được không ạ, nhờ anh chị giúp với!
Chúc anh chị ngày nghỉ vui vẻ!!!

 

[VetMini]

Columns("G:G").Offset(0,index-2).Select
Range("G4").Offset(0,index-2).Activate

 

[quyenpv]

Không được anh VetMini ạ

 

[quyenpv]

Đã xử lý xong! Cám ơn anh chị đã quan tâm!
Thanks 4rum