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

½Æ»s¦h­Ó¤u§@ªíªº¤º®e

½Æ»s¦h­Ó¤u§@ªíªº¤º®e

¤j®a¦n¡A³o¬O²Ä¤@¦¸µo¤å

¤p©f¤£¤~..¥Ø«e¥¿¦b¾Ç²ß¤¤¡A³Ìªñ»Ý­n³B²z¤j¶qªº¸ê®Æ

»Ý­n±N¨C¤éªº¤u§@ªí¤j¶q·J¾ã¡A»¡©ú ¦h­Ó¤u§@ªí½Æ»s.rar (13.58 KB) ¦pªþÀÉ

¥u·Qªº¨ì¥ý¥Î¤½¦¡INDIRECT©ÎªÌ¼g³æ¤@±q¦U¤u§@ªí½Æ»s¶K¤W
¦ý¤@¶µ¤@¶µ§ï«Ü¯Ó®É¡A©Ò¥H¨Ó½Ð±Ð....

ÁÂÁ¦U¦ì¤£§[«ü±Ð :)

¨C¤éªº¤u§@ªí¦p¤U¹Ï


»Ý­n±N¨C¤éªº¶µ¥Ø¥H¾î¦Vªº¤è¦¡¶K¦Ü¤U¹Ï


«D±`·PÁÂ(Áù°`)

¸É¥R¡G¥Ø«e¥uª¾¹D¥i¥H³o»ò¼g
Sub ½Æ»s¶K¤W()
Worksheets("1").Range("F30:N30").Copy _
Worksheets("sheet1").Range("B3")
Worksheets("1").Range("F31:N31").Copy _
Worksheets("sheet1").Range("K3")
Worksheets("1").Range("F32:N32").Copy _
Worksheets("sheet1").Range("T3")
Worksheets("1").Range("F33:N33").Copy _
Worksheets("sheet1").Range("AC3")
.
.
.
End Sub
¥H¦¹Ãþ±À¡A¦ý¦]¬°¤u§@ªí¹L¦h¡A¤£¤Ó¥i¯à§â¨C­Ó"1"§ï¦¨"2"©Î"3"....
½Ð±Ð¸Ó¥Î¤°»ò°j°é¨Ó²¤Æ­«½Æªº°Ê§@....·PÁÂ

TOP

¦U­Ó¤Àªí³£¬O©T©w®æ¦¡,
Sub ¸ü¤J()
Dim Arr, A, Sc%, N%, i&, j&
ActiveSheet.UsedRange.Offset(3, 0).EntireRow.Delete
Sc = Sheets.Count - 1
ReDim Arr(1 To Sc, 1 To 181)
For i = 2 To Sheets.Count
    Arr(i - 1, 1) = Sheets(i).Name
    For j = 1 To 180
        Arr(i - 1, j + 1) = Sheets(i).[D4:L23].Item(j)
    Next j
Next
[C4].Resize(Sc, 181) = Arr
End Sub

Xl0000498.rar (16.52 KB)


===================================

TOP

¤½¦¡ªk
CÄæ¿é¤J¤u§@ªí¦WºÙ
D4:
=INDEX(INDIRECT("'"&$C4&"'!D4:L23"),COUNTA($D$2:D$2),D$3)
©Î
=INDEX(INDIRECT("'"&$C4&"'!D4:L23"),INT(COLUMN(I1)/9),D$3)
©Î
=VLOOKUP(LOOKUP("龥",$D$2:D$2),INDIRECT("'"&$C4&"'!B:L"),D$3+2,)

¥k©Ô/¤U©Ô


=============================

TOP

¦^´_ 3# ­ã´£³¡ªL


    «D±`·PÁª©¥Dªº¦^ÂÐ

¦]¬°¦³ÂI¶W¹L§Úªº²z¸Ñ½d³ò

¤£ª¾¹D¥i§_½Ðª©¥Dµy·LÁ¿¸Ñ

¦pªG¤é«áÄæ¦ì¦³¼W¥[©ÎªÌÀx¦s­Ó«ü©w½d³ò¦³ÅÜ°Ê

§Ú¥i¥H¦Û¦æ°µ­×§ï¡A¦A¦¸·PÁª©¥Dªº«ü±Ð

TOP

¦^´_ 5# lovegowan

¥ÎÀx¦s®æ¹ï·Óªk§a!  ³t«×¸ûºC:
Sub ¸ü¤J()
Dim xA As Range, xArea As Range, i, j&
Sheets("¥Dªí").UsedRange.Offset(3, 0).EntireRow.Delete
Set xA = [¥Dªí!C3]  'ªì©l¼g¤J©w¦ì®æ
Application.ScreenUpdating = False
For i = 2 To Sheets.Count
    Set xA = xA(2, 1)  '¼g¤J©w¦ì®æ¦V¤U²¾¤@®æ
    xA = "¤u§@ªí--" & Sheets(i).Name '¼g¤J¤u§@ªí¦WºÙ
    Set xArea = Sheets(i).[D4:L23]  '©w¦ì¦U¤Àªí¸ê®Æ°Ï°ì
    For j = 1 To 20 '¥Ñ¤W©¹¤U§ì[D4:L23]¾ã¦C, ¦A¥Ñ¥ª©¹¥k¼g¤J¥Dªí
        xA(1, (j - 1) * 9 + 2).Resize(1, 9) = xArea.Rows(j).Value
    Next j
Next
Range([¥Dªí!C4], xA(1, 181)).Borders.LineStyle = 1 '¥[¤J®Ø½u
End Sub

Xl0000498-1.rar (17.2 KB)


=================================

TOP

¦^´_ 6# ­ã´£³¡ªL


    «D±`ÁÂÁª©¥D­@¤ßªº¦^´_¡A§Ú·|¦A¬ã¨s§V¤Oºë¶i :)

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD