­ã´£³¡ªL

³oºØªí®æ, «Øij¥ÎVBA¸Õ¸Õ¡I

Sub TEST()
Dim R&, x&, y&, T$, xR As Range, xH As Range
[Sheet2!A:C].ClearContents
Set xH = [Sheet2!A1]
xH.Resize(1, 3) = Array("¼Ó¼h", "§Ç", "©m¦W")
R = Sheets("Sheet1").UsedRange.Rows.Count
For x = 2 To 14 Step 6
¡@¡@For y = 4 To R
¡@¡@¡@¡@Set xR = [Sheet1!A1].Cells(y, x)
¡@¡@¡@¡@If xR = 1 Then T = xR(1, 0) & ""
¡@¡@¡@¡@If xR(1, 3) = "¡­" Or xR(1, 4) = "¡­" Then
¡@¡@¡@¡@¡@Set xH = xH(2)
¡@¡@¡@¡@¡@xH.Resize(1, 3) = Array(T, xR, xR(1, 2))
¡@¡@¡@¡@End If
¡@¡@Next y
Next x
End Sub

­ã´£³¡ªL

¦^´_ 3# shan0948


Sheet2¡D¢Ï¢°¡D°}¦C¤½¦¡¡G¥u¨ú¡e©m¦W¡f
=INDIRECT(TEXT(RIGHT(SMALL(IF((Sheet1!D$3:P$3="°ÊºA")*((Sheet1!E$4:Q$36="¡­")+(Sheet1!D$4:P$36="¡­")),COLUMN(C:O),99)*100001+ROW($4:$36)*100,ROW(A1)),5),"""sheet1!""\R0C00"),)&""
¡@
¡Õ°}¦C¤½¦¡¿é¤Jªk¡Ö¡@
¿é¤J©Î­×§ï¤½¦¡§¹¦¨«á¡A´å¼Ð¯d¦b¡e½s¿è¦C¡f¡A¥ý¤£­n«öEnter¡A
¦P®É«ö¦í¡eShift + Ctrl¡f¤£©ñ¡A¦A«ö¡eEnter¡f¡C

­ã´£³¡ªL

¦^´_ 6# ¤d·u´M


¡e½s¸¹¡f¬°¦X¨Ö®æ¡A»P¥k¤@®æ¡e§Ç¸¹¡D¢°¡f¦P¤@¦C¡A
xR°j°é®É¡A¹J¨ì§Ç¸¹¢°®É¡A¨ú¨ä¡e¥ª¤@®æ¡f­È¡A¯Ç¤JÅܼÆT¡I

­ã´£³¡ªL

¦^´_ 8# ¤d·u´M


¥¿¸Ñ¡I^ ^

xH ¬°¤W¥ôÁ`²Î¡A¥ô´Á¨ì¤F¡A·í¥æµ¹¤U¥ôÁ`²Î xH(2)¡I