¥¨¥¯¥»¥ë¤Ç£±£°£°£°£°¹Ô¤°¤é¤¤¤¢¤ë¤ä¤Ä¤ò¤Ç£²£°£°£°¹Ô¤Å¤Äbook¤Ë¤·¤Æ¤¯¤ì¤ëVisual Basic
¥¨¥¯¥»¥ë³«¤¤¤Æ
¥ª¥×¥·¥ç¥ó¤Ç
º¸¤Î ¥ê¥Ü¥ó¤Î¥æ¡¼¥¶¡¼ÀßÄê ¥¯¥ê¥Ã¥¯
¼¡ ±¦Â¦¤Î³«È¯¤Ë¥Á¥§¥Ã¥¯
OK²¡¤·¤Æ
Visual Basic¤ò²¡¤·¤Æ
ʬ³ä¤·¤¿¤¤¥·¡¼¥È¤ò¥¯¥ê¥Ã¥¯
³«¤¤¤¿ÌµÃϤΥ³¡¼¥É¤Ë
↓¤ò¥³¥Ô¡¼
=============================================================================================
Sub wakeru()
Dim wb As Workbook
Dim ts As Worksheet
Dim x As Long, y As Long, i As Long, z As Long
Set ts = ActiveSheet
x = ts.UsedRange.Rows.Count
y = Int(x / 2000) + IIf(x Mod 2000 > 0, 1, 0)
z = ts.UsedRange.Rows(1).Row
For i = 1 To y
Set wb = Workbooks.Add
wb.Sheets(1).Name = z & "¡Á" & z + 1999
ts.Rows(z & ":" & z + 1999).Copy wb.Sheets(1).Range("A1")
z = z + 2000
Next i
End Sub
=============================================================================================
º¸¾å¤Î¥¨¥¯¥»¥ë¥Ü¥¿¥ó²¡¤·¤Æ
¥Þ¥¯¥í̾ ¼Â¹Ô¤Ç
wakeru¤Ã¤Æ¤Î¤ò¼Â¹Ô
¤½¤·¤¿¤é
£±¡Á£²£°£°£°
£²£°£°£±¡Á£´£°£°£°
£´£°£°£±¡Á£¶£°£°£°
¤Ã¤ÆBOOK¤Çʬ³ä¤·¤Æ¤¯¤ì¤ë
¥Ø¥Ã¥¿¡¼¤Î£±¹ÔÌܤÏ
¥³¥Ô¥Ú¤ÇÄɲä·¤Æ
ºÇ¸å¤Î¹Ô¤«¤é²¼¤Þ¤Çºï½ü¤·¤Æ¤ª¤¤¤¿¤Û¤¦¤¬¤¤¤¤ ¼«Ê¬¥á¥â
- 2019.10.02 Wednesday
- ¥¨¥¯¥»¥ë¡¡Excel¡¡Excel
- 04:56
- comments(0)
- -
- by ÅÄÃæ£¹£³£¹£³