- ©«¤l
- 31
- ¥DÃD
- 0
- ºëµØ
- 0
- ¿n¤À
- 31
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office 2016
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-10-4
- ³Ì«áµn¿ý
- 2017-10-17
|
- Sub Macro()
- If Worksheets("°e¼fªí³æ").Range("a2") <> "" Then
- Data = [a2:f6]
- With Worksheets(Data(1, 1))
- .Activate
- .Range("A65536").End(xlUp).Offset(1, 0).Resize(, 6) = Data
- End With
- End If
- End Sub
½Æ»s¥N½X ¦^´_ 1# a_nanami |
|