½Æ»s¶K¤W¦p¦ó¼g?

oak0723-1

Sub ¥¨¶°9()
'
' ¥¨¶°9 ¥¨¶°
'

'
    Sheets("a").Columns("H:H").Copy
    Sheets("b").Range("H1").Paste
End Sub

¦U¦ì¦n
½Ð°Ý¦U¦ì¥ý¶i
¥H¤W»yªk­þ¸Ì¿ù¤F?

oak0723-1

¦^´_ 7# oak0723-1
³o­Ó°ÝÃD§Ú¤w¦Û¸Ñ¤F

oak0723-1

¤W¤@­Ó°ÝÃD§Ú¦A·Q·Q
¥t¥~½Ð±Ð
¥H¤U³o­Óµ{¦¡½X­þ¸Ì¦³¿ù?
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("±q01(±µ¦¬)").Range("a7:a100000").Copy
    Sheets("¤ñ¹ï").Select
    Range("I3").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

samwang

¦^´_ 5# oak0723-1
¬O³o¼Ë¶Ü?
With Workbooks.Open("D:\test.xlsm")
Sheets("a").Columns("H:H").Copy Sheets("b").Columns("H:H")
.Close
End With

oak0723-1

½Ð±Ð
­Y¤£¶}±Òsheets("b") ÀÉ®×°õ¦æ..­n¦p¦ó¼g?

samwang

½Ð±Ð
ActiveSheet.Paste
³o¬qµ{¦¡½X¬O§_¥Nªí1©w­n¶}±ÒÀÉ®×?
oak0723-1 µoªí©ó 2021-10-10 13:47

¤@©w­n¦b¶}±Òsheets("b") ¤U°õ¦æ

¥t¥~¡A¤]¥i§ï¬°Sheets("a").Columns("H:H").Copy Sheets("b").Columns("H:H")
³o¼Ë¦b´N¥i¥H¦b¨º­ÓÀɮ׶}±Ò¤Uªº¥ô¦ó¤@­Ósheets¤U°õ¦æ³£¥i¥H¦¨¥\±N¸ê®Æ½Æ»s¹L¥h
ÁÂÁÂ

oak0723-1

½Ð±Ð
ActiveSheet.Paste
³o¬qµ{¦¡½X¬O§_¥Nªí1©w­n¶}±ÒÀÉ®×?

samwang

¦^´_ 1# oak0723-1

¥i¥H¿ý»s«á¦A­×§ï¡AÁÂÁÂ
Sheets("a").Columns("H:H").Copy
Sheets("b").Columns("H:H").Select
ActiveSheet.Paste