- ©«¤l
- 9
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 15
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2013-10-1
- ³Ì«áµn¿ý
- 2019-4-13
|
§Ú¥Îvba ¦X¨Ö SHEETS ¦hÓ SHEETS µ{¦¡½X¦p¤U ¦ý§Ú·Q¦b¨CÓ SHEETS ½Æ»s¹L¨Óªº®ÉÔ ³£©¹¤U²¾°Ê5¦æ (¨CÓSHEETS¸ê®Æ³£¤£¤@¼Ë¦h¦C)
¥¿¦b§V¨½¾Ç²ß¤¤ ÁÂÁ¤j¤j̪ºÀ°¦£
Sub ¦X¨Ö()
Dim b(11) As Integer
Range("a2:z10000").Select
Selection.ClearContents
Cells(1, 1).Select
For j = 2 To 11
b(j) = Sheets(j).UsedRange.Rows.Count
c = Sheets(1).UsedRange.Rows.Count
For i = 1 To b(j) + 1
a1 = Sheets(j).Cells(i + 1, 1).Value
a2 = Sheets(j).Cells(i + 1, 2).Value
a3 = Sheets(j).Cells(i + 1, 3).Value
a4 = Sheets(j).Cells(i + 1, 4).Value
a5 = Sheets(j).Cells(i + 1, 5).Value
a6 = Sheets(j).Cells(i + 1, 6).Value
a7 = Sheets(j).Cells(i + 1, 7).Value
a8 = Sheets(j).Cells(i + 1, 8).Value
Worksheets("Á`ªí").Cells(c + i, 1).Value = a1
Worksheets("Á`ªí").Cells(c + i, 2).Value = a2
Worksheets("Á`ªí").Cells(c + i, 3).Value = a3
Worksheets("Á`ªí").Cells(c + i, 4).Value = a4
Worksheets("Á`ªí").Cells(c + i, 5).Value = a5
Worksheets("Á`ªí").Cells(c + i, 6).Value = a6
Worksheets("Á`ªí").Cells(c + i, 7).Value = a7
Worksheets("Á`ªí").Cells(c + i, 8).Value = a8
Next i
Next j
Sheets(1).Select
End Sub |
|