¦]¬°¥Ø«eVBA¶È¯à§ä¨ì³Ì«á¤@Ä檺¨º¤@Ócell¦ýµLªk¬O¾ãÄæ,
½Ð°Ý¦³¨ä¥L¿ìªk¥i¥H¿ï¨ú¾ãÄæ¨Ã§R°£¶Ü
ÁÂÁÂ~
ps.¦¹¬°²Ä¤@Ó¤p¥¨¶°
Sub lastcolumn()
Sheets("Sheet2").Activate
Sheets("Sheet2").Select
Range("a1").Copy
With Sheets("Sheet1")
.Paste .Range("a1").End(xlToRight).Offset(0, 1)
End With
End Sub