ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ­n«ç»ò ¥[¤JªÅ¥Õ¦æ

[µo°Ý] ­n«ç»ò ¥[¤JªÅ¥Õ¦æ

§Ú¥Î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

  1. Sub ¦X¨Ö()
  2.     With Sheets("Á`ªí")
  3.         .UsedRange.Offset(1, 0) = ""
  4.         For j = 2 To Sheets.Count
  5.             a = Sheets(j).UsedRange.Offset(1, 0)
  6.             n = IIf(.Cells(2, 1) = "", 2, .Cells(65536, 1).End(3).Row + 6)
  7.             .Cells(n, 1).Resize(UBound(a), UBound(a, 2)) = a
  8.         Next
  9.     End With
  10. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# oobird


ÁÂÁ¤j¤jªº±Ð¾Ç  ¸U¤À·PÁÂ:D

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD