- ©«¤l
- 53
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 90
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2019-4-30
- ³Ì«áµn¿ý
- 2023-4-25
|
¦^´_ 2# samwang
Sub test()
Dim Arr, T, R&
With Sheets("¸ê®Æ¿é¤J")
R = .[b65536].End(3).Row
If R < 5 Then Exit Sub <------³o¦æªº·N«ä¬O?
Arr = .Range("b5:g" & R)
T = .[F2]
End With
With Sheets("¥X³f¸ê®Æ")
R = .[b65536].End(3).Row + 1
.Range("b" & R).Resize(UBound(Arr), 6) = Arr<------³o¦æªº·N«ä¬O?
.Range("a" & R & ":a" & R + UBound(Arr) - 1) = T<------³o¦æªº·N«ä¬O?
End With
End Sub
°²¦p§Ú§â«È¤á³æ¸¹¥Ñf2²¾¦Üb2
n±Na2»Pb2³o¨âÄæ©ñ¨ì¥X³f¸ê®ÆabÄæ½Ð°Ýn¦p¦óקï? |
|