[發問] 列的迴圈語法

ABK

請教一下!
儲存格S3到AG3 有一列資料， 想用VBA迴圈在S6到AG6寫入公式， 讓S6到AG6等於S3到AG3 的值。
VBA的迴圈語法要如何寫。

ML089

回復 1# ABK


Sub ex1()
    For Each x In [S3:AG3]
        x(4).Value = x.Value
    Next
End Sub

ABK

回復 2# ML089

謝謝ML大 !
我的需求是要寫入公式 。

ML089

回復 3# ABK


Sub ex()
    [S6:AG6] = "=S3"
End Sub

Kubi

回復 1# ABK
請參考。
Sub test()
    For c = 19 To Cells(3, 19).End(xlToRight).Column
        Cells(6, c).Value = "=" & Replace(Cells(3, c).Address, "$", "")
    Next c
End Sub

linyancheng

回復 1# ABK


Sub a()

Range("s6:ag6").Formula = "=r[-3]c"

End Sub

faye59

回復 1# ABK

1. Sub EX()
   
2. n = 1
   
3. For Each aa In Range([S3], [AG3].End(xlToRight))
   
4. Cells(6, 18 + n) = aa
   
5. n = n + 1
   
6. Next
   
7. End Sub

複製代碼

ABK

回復 4# ML089


感謝 ML089 大 !

ABK

回復 6# linyancheng


感謝linyancheng 大 !

ABK

回復 7# faye59


    感謝faye59 大 !