返回列表 上一主題 發帖

[發問] 列的迴圈語法

[發問] 列的迴圈語法

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

回復 1# ABK


Sub ex1()
    For Each x In [S3:AG3]
        x(4).Value = x.Value
    Next
End Sub
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復 2# ML089

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

TOP

回復 3# ABK


Sub ex()
    [S6:AG6] = "=S3"
End Sub
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復 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

TOP

回復 1# ABK


Sub a()

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

End Sub
Word呈現極致的靜態之美,Excel展現極致的動態之美。

TOP

回復 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
複製代碼
一分努力,一分收穫。
發問題前可以先搜索內文是否有相關範例。

TOP

回復 4# ML089


感謝 ML089 大 !

TOP

回復 6# linyancheng


感謝linyancheng 大 !

TOP

回復 7# faye59


    感謝faye59 大 !

TOP

        靜思自在 : 要批評別人時,先想想自己是否完美無缺。
返回列表 上一主題