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

[µo°Ý] ¥Î²Å¸¹¥h¹ïÀ³¤H¦W°µ¥X¦W³æ

[µo°Ý] ¥Î²Å¸¹¥h¹ïÀ³¤H¦W°µ¥X¦W³æ

¦U¦ì«e½ú¦n¡A³Ìªñ­è¨Ï¥ÎEXCEL¡A¦ÑÁ󵹤F¤@­Ó§@·~¡A
¥­±`³£¬O§Q¥Î²Å¸¹¥hªí¥Ü¨C­Ó¤H¥ð°²¡B¯f°²¡B­È¯Zµ¥µ¥¡A¦p¤U¹Ïªº±Æ¯Zªí
¦ý¦ÑÁó­n§Ú¨C­Ó§«ô¥h°µ¨C¤Ñ¦³½Ö©ñ°²ªº¦W³æ¡A¦ý­û¤u¤H«Ü¦h¡A¨C¦¸³£­n¼Æ«Ü¤[
¦Ó¥B®e©ö¼Æ¿ù¡A¦]¦¹·Q»¡¬Ý¯à§_§Q¥ÎEXCEL¡A·í§Ú¨C­Ó¤ëªº±Æ¯Zªí±Æ¦n¥H«á¡A¥i¥H
¦Û°Ê±Æ¥X¨C¤Ñ¦³½Ö©ñ°²¡A¦p¤U¹Ï©P¤@¨ì©P¤é©ñ°²¦W³æ¡A³oEXCEL¦³¿ìªk¹F¦¨¶Ü?
ªþ¥ó¬O½d¨Òªº±Æ¯Zªí¡A«ô°U½Ð¤j¤j±Ð§Ú¤@¤U«ç»ò°µ¥X¨Ó³oªí®æ?¨ç¼Æªº¤è¦¡¯à°µ¥X¨Ó¶Ü?

Â^¨ú.PNG (27.62 KB)

±Æ¯Zªí

Â^¨ú.PNG

Â^¨ú2.PNG (9.57 KB)

¨C¤Ñ©ñ°²¤H­û¦W³æ

Â^¨ú2.PNG

©ñ°²ªí.rar (8.75 KB)

±Æ¯Zªíªº½d¨Ò

¦^´_ 1# domotomomo

C2°}¦C¤½¦¡
=IF(COUNTIF(±Æ¯Zªí!$C2:$T2,"¡º")<COLUMN(A$1),"",INDEX(±Æ¯Zªí!$C$1:$T$1,,SMALL(IF(±Æ¯Zªí!$C2:$T2="¡º",COLUMN($C$1:$T$1),""),COLUMN(A$1))-2))   
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh

  «D±`·PÁ«e½úªº±Ð¾Ç¡A§Ú¸ÕµÛ·Ó°µ¡A¦ý¬O¦n¹³³£·|¥X¿ù¸ò¤U¹Ï¤@¼Ë¡A¬O­þ¸Ì¥X°ÝÃD¶Ü?
  ÁÙ¦³¤@­Ó°ÝÃD¬O¦pªG¦P®É¦³¯f°²(µÙ§Î)¸ò¥ð°²(¶ê§Î)³£ÄÝ©ó¥ð°²¤H­û¡A³o¯à¤@°_Åã¥Ü¶Ü?

3.PNG (15.2 KB)

3.PNG

TOP

¥ÎVBA, VBA code ¦p¤U:
Sub ²Î­p©ñ°²¦W³æ()
   Dim x, y As Object
   Dim i, j, k As Integer
   Dim str1 As String
   Dim Colindx(5) As Integer
   Set x = Sheets("©ñ°²¦W³æ")
   Set y = Sheets("²Î­pªí")
   
   y.Range("D3:X72").ClearContents
   
   '¦C¼Æ(i+2)¥Nªí¤é´Á
   For i = 1 To 31
   
      'Colindx(k)¥Nªí"²Î­pªí"ªºÄæ¼Æ­p¼Æ¾¹
      For k = 1 To 5
         Colindx(k) = 3
      Next
      
     'Äæ¼Æ(j-2)¥Nªí­û¤u¼Æ
      For j = 3 To 18
         str1 = x.Cells(i + 2, j)
         Select Case str1
            Case Is = "¡¾"
               Colindx(1) = Colindx(1) + 1
               y.Cells(i * 5 - 2, Colindx(1)) = x.Cells(2, j)
            Case Is = "¡³"
               Colindx(2) = Colindx(2) + 1
               y.Cells(i * 5 - 1, Colindx(2)) = x.Cells(2, j)
            Case Is = "¡·"
               Colindx(3) = Colindx(3) + 1
               y.Cells(i * 5, Colindx(3)) = x.Cells(2, j)
            Case Is = "¡¼"
               Colindx(4) = Colindx(4) + 1
               y.Cells(i * 5 + 1, Colindx(4)) = x.Cells(2, j)
            Case Is = "¡¸"
               Colindx(5) = Colindx(5) + 1
               y.Cells(i * 5 + 2, Colindx(5)) = x.Cells(2, j)
         End Select
      Next
   Next
End Sub
©ñ°²¦W³æ¦p¤U:

²Î­pªí°õ¦æµ²ªG¦p¤U:

TOP

¦^´_ 3# domotomomo

¸É ExcelÀɮצp¤U¡G
©ñ°²¦W³æ.rar
https://www.mediafire.com/?qf979x7bdwc16hy

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD