Board logo

標題: [發問] 列的迴圈語法 [打印本頁]
作者: ABK    時間: 2018-6-29 00:18     標題: 列的迴圈語法

請教一下!
儲存格S3到AG3 有一列資料， 想用VBA迴圈在S6到AG6寫入公式， 讓S6到AG6等於S3到AG3 的值。
VBA的迴圈語法要如何寫。
作者: ML089    時間: 2018-6-29 09:01

回復 1# ABK


Sub ex1()
    For Each x In [S3:AG3]
        x(4).Value = x.Value
    Next
End Sub
作者: ABK    時間: 2018-6-29 10:06

回復 2# ML089

謝謝ML大 !
我的需求是要寫入公式 。
作者: ML089    時間: 2018-6-29 11:54

回復 3# ABK


Sub ex()
    [S6:AG6] = "=S3"
End Sub
作者: Kubi    時間: 2018-6-29 12:06

回復 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    時間: 2018-6-29 18:53

回復 1# ABK


Sub a()

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

End Sub
作者: faye59    時間: 2018-6-30 21:11

回復 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    時間: 2018-7-31 22:13

回復 4# ML089


感謝 ML089 大 !
作者: ABK    時間: 2018-7-31 22:14

回復 6# linyancheng


感謝linyancheng 大 !
作者: ABK    時間: 2018-7-31 22:14

回復 7# faye59


    感謝faye59 大 !
作者: ABK    時間: 2018-7-31 22:22

回復 5# Kubi


    感謝Kubi 大 !



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)