[µo°Ý] ¦Cªº°j°é»yªk

ABK

½Ð±Ð¤@¤U!
Àx¦s®æS3¨ìAG3 ¦³¤@¦C¸ê®Æ¡A ·Q¥ÎVBA°j°é¦bS6¨ìAG6¼g¤J¤½¦¡¡A ÅýS6¨ìAG6µ¥©óS3¨ìAG3 ªº­È¡C
VBAªº°j°é»yªk­n¦p¦ó¼g¡C

ML089

¦^´_ 1# ABK


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

ABK

¦^´_ 2# ML089

ÁÂÁÂML¤j !
§Úªº»Ý¨D¬O­n¼g¤J¤½¦¡ ¡C

ML089

¦^´_ 3# ABK


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

Kubi

¦^´_ 1# ABK
½Ð°Ñ¦Ò¡C
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

½Æ»s¥N½X

ABK

¦^´_ 4# ML089


·PÁÂ ML089 ¤j !

ABK

¦^´_ 6# linyancheng


·PÁÂlinyancheng ¤j !

ABK

¦^´_ 7# faye59


    ·PÁÂfaye59 ¤j !