- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 1# yagami12th - Option Explicit
- Sub Ex()
- Dim Ar(), Ar1()
- With Sheets("ºô¯¸¤W¨C¤é¤¤j¥æ©ö¤H´Á³f")
- Ar = Array(.[A1].Text, .[K8], .[K10], .[K10] - .[K8]) '¼Æ¾Ú¸m¤J°}¦C
- End With
- With Sheets("´Á³f¤jÃB¥æ©öªÌ(¯Sªk¡A«D¯Sªk)").Cells(Rows.Count, "A").End(xlUp) '³Ì«á¤@Ó¦³¸ê®ÆªºÀx¦s®æ
- .Offset(1).Resize(1, 4) = Ar '¦ì²¾¤U¤@¦C
- End With
- With Sheets("¤ÀªRÁ`ªí")
- Ar1 = .[A4:D8].Value '¨ú«e4¤Ñ¼Æ¾Ú ¸m¤J¤Gºû°}¦C
- Ar1(5, 1) = Ar(0) '¥[¤J²Ä5¤Ñ¼Æ¾Ú
- Ar1(5, 2) = Ar(1)
- Ar1(5, 3) = Ar(2)
- Ar1(5, 4) = Ar(3)
- .[A3:D7] = Ar1 'ÁÙì5¤Ñªº¼Æ¾Ú
- End With
- End Sub
½Æ»s¥N½X |
|