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

[µo°Ý] ¸ê®ÆÂà¸m¶K¤W

[µo°Ý] ¸ê®ÆÂà¸m¶K¤W

¦U¦ì¤j¤j¦n

¦]¤u§@¤W»Ý­n°µ¨ìñ¨ìªí¡A¦ý¦]¨Ó·½®æ¦¡³£¤£¬Û¦P©Ò¥H¨C¦¸³£ªá«Ü¦h¶¡¦b°µ¶K¤W­È&Âà¸mªº°Ê§@

§Ú¥Ø«e¬O¥Î³Ì²Âªº¤èªk¥ý±q¨BÆJ¤@¶K¦¨¨BÆJ¤G¡AµM«á¦AÂন¨BÆJ¤T
¤£ª¾¹D¯à¤£¯à¼g¦¨¥¨¶°¡A·Q½Ð¦U¦ì¤j¤jÀ°¦£

Âà¸m¶K¤W.zip (19.53 KB)

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

¦^´_ 1# ÅÚ½³ªd

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
Dim Arr, Brr(1 To 1000, 1 To 3), Crr()
Dim i&, j&, n%, s%, m%, R%
Arr = [n13].CurrentRegion  '¨Ó·½¸ê®Æ1
For j = 1 To UBound(Arr, 2): For i = 1 To UBound(Arr)
    If Arr(i, j) <> "" Then
        If n < 7 Then n = n + 1 Else n = 1
        s = s + 1: Brr(s, 1) = n
        Brr(s, 2) = Arr(i, j): Brr(s, 3) = s
    End If
Next i: Next j
[j13].Resize(s, 3) = Brr   'Âà¶K¨ì2
R = Int(s / 7) + 1: ReDim Crr(1 To R, 1 To 7): k = 1
For i = 1 To s
    For j = 1 To 7
        m = m + 1: If m > s Then GoTo 99
        Crr(i, j) = Brr(m, 2)
    Next
99: Next i
Range("a13").Resize(R, 7) = Crr  'Âà¶K¨ì3
End Sub

TOP

Sub test_1()
Dim Arr, Brr, i&, j&, T$, R&, C%
Range("a13:g2000").ClearContents
Arr = [n13].CurrentRegion
ReDim Brr(1 To 2000, 1 To 7)
For j = 1 To UBound(Arr, 2)
    For i = 1 To UBound(Arr)
        T = Arr(i, j): If T = "" Then GoTo i01
        C = C + 1: Brr(R + 1, C) = T
        If C = 7 Then C = 0: R = R + 1
i01: Next i
Next j
[a13].Resize(R + 1, 7) = Brr
End Sub

TOP

ÁÂÁ¦U¦ì¡A¦]¬°³Ìªñ¤ñ¸û¦£¡A§Ú·|§ä®É¶¡¬ã¨s

TOP

¦^´_ 3# samwang


ÁÂÁ¡A´ú¸ÕOK

TOP

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


  ÁÂÁ¡A´ú¸ÕOK

TOP

ÁÙ¦³¤@¨Ç°ÝÃD·Q½Ð±Ð¨â¦ì¤j¤j

¤§«e¦³¼g¤@­Ó¥¨¶°¡A¤£¹L¦³ÂI¶Ã¤£ª¾¹D¥i¤£¥i¥HÁY´î©Î­×§ï¤@¤U¤º®e
¤@¡B¨Ì¨BÆJ2ªº¤º®e¨Ì³y¤H¼Æ¦h¹è¡A¬D¿ï¾A¦XªºÃ±¨ìªí¶K¤W>>>>³o­Ó¯à§ï¦¨±q¨BÆJ¤T¶K¹L¥h¶Ü¡H
¤G¡B¨Ì¨BÆJ3ªº¤º®e¶K¨ìlist>>>>¥Ø«e¥d¨ì¦pªG¬O¥þ¼t´N­n¥[¤W³¡ªù(³¡ªù-©m¦W)¡A¦ý¥[¤W³¡ªù´NµLªk±q¤H­û¦W³æ§ì¥X¤u¸¹»P³¡ªù¡A¯à§_¼g¦¨¥u§ì©m¦W¹L¥h¤£§ì³¡ªù©O¡H
¤T¡B¤H­û¦W³æªº³¡¤À¥i¥H¤£¼W¥[¦Ç¦â¨º¤@¦C´N¯à§ì¨ú­nªº¸ê°T¶Ü¡H

¤£¦n·N«ä³Â·Ð±z¤F

Âà¸m¶K¤W.zip (50.08 KB)

TOP

¦^´_ 8# ÅÚ½³ªd

¤£¦n·N«ä¡A¤£¤Ó¯à²z¸Ñ±zªº»Ý¨D¡A¥i¯à»Ý­n¥t¥~¸Ô²Ó»¡©ú¸ÑÄÀ¡AÁÂÁÂ

TOP

¦^´_ 9# samwang


    ¤£¦n·N«ä¡Aªþ¥ó¤º®e§Ú¦³°µ§ó§ï
Sub »s§@ñ¨ìªí()

Dim a As Integer
a = Sheets("µn¿ý(2)").Range("I9")
'MsgBox a

Sheets("list").Select
If Range("d2") = "" Then
   R = 2
Else
   R = Range("d1").End(xlDown).Row + 1
End If


For i = 13 To 27
    For j = 1 To 7
        If Sheets("µn¿ý(2)").Cells(i, j) <> "" Then
            Sheets("list").Range("d" & R) = Sheets("µn¿ý(2)").Cells(i, j)
            Sheets("list").Range("e" & R) = Sheets("µn¿ý(2)").Range("b7")
            Sheets("list").Range("f" & R) = Sheets("µn¿ý(2)").Range("h7")
            Sheets("list").Range("g" & R) = Sheets("µn¿ý(2)").Range("d7")
            Sheets("list").Range("h" & R) = Sheets("µn¿ý(2)").Range("c7")
            Sheets("list").Range("i" & R) = Sheets("µn¿ý(2)").Range("g8")
            Sheets("list").Range("j" & R) = Sheets("µn¿ý(2)").Range("f10")
            Sheets("list").Range("k" & R) = Sheets("µn¿ý(2)").Range("e8")
            Sheets("list").Range("l" & R) = Sheets("µn¿ý(2)").Range("b8")
            Sheets("list").Range("n" & R) = "¦X®æ"
                If WorksheetFunction.CountIf(Sheets("¤H­û¦W³æ").Range("a:a"), Range("d" & R)) > 0 Then '¤j©ó0ªí¥Ü¦³§ä¨ì³o¦W­û¤u
                    Sheets("list").Range("b" & R) = WorksheetFunction.VLookup(Range("d" & R), Sheets("¤H­û¦W³æ").Range("a:i"), 9, 0)
                    Sheets("list").Range("c" & R) = WorksheetFunction.VLookup(Range("d" & R), Sheets("¤H­û¦W³æ").Range("a:i"), 2, 0)
                Else
                    Sheets("list").Range("b" & R) = "¯Ê"
                    Sheets("list").Range("c" & R) = "¯Ê"
                End If
            Sheets("list").Range("a" & R) = Sheets("list").Range("c" & R) & Sheets("list").Range("e" & R) & Sheets("list").Range("l" & R)
            If WorksheetFunction.CountIf(Sheets("list").Range("a:a"), Range("a" & R)) > 1 Then
            Sheets("list").Range("p" & R) = "­«½Æ"
            End If
            R = R + 1
        End If
    Next
Next



Select Case a

    Case Is > 50
        Sheets("ñ¨ì°O¿ýªí (3±i)").Select
        If Sheets("ñ¨ì°O¿ýªí (3±i)").Range("A11") <> "" Then
           Sheets("ñ¨ì°O¿ýªí (3±i)").Range("A11:h48").ClearContents
        End If
        Range("b3") = Sheets("µn¿ý(2)").Range("d7")
        Range("b4") = Sheets("µn¿ý(2)").Range("b8")
        Range("h4") = Sheets("µn¿ý(2)").Range("f9")
        Range("b6") = Sheets("µn¿ý(2)").Range("e8")
        Range("b7") = Sheets("µn¿ý(2)").Range("b9")
        Range("a11:a24") = Sheets("µn¿ý(2)").Range("k13:k26").Value
        Range("h11:h24") = Sheets("µn¿ý(2)").Range("k27:k40").Value
        Range("a25:a38") = Sheets("µn¿ý(2)").Range("k41:k54").Value
        Range("h25:h38") = Sheets("µn¿ý(2)").Range("k55:k68").Value
        Range("a39:a48") = Sheets("µn¿ý(2)").Range("k69:k78").Value
        Range("h39:h48") = Sheets("µn¿ý(2)").Range("k79:k88").Value

    Case Is > 24
        Sheets("ñ¨ì°O¿ýªí (2±i)").Select
        If Sheets("ñ¨ì°O¿ýªí (2±i)").Range("A11") <> "" Then
           Sheets("ñ¨ì°O¿ýªí (2±i)").Range("A11:h35").ClearContents
        End If
        Range("b3") = Sheets("µn¿ý(2)").Range("d7")
        Range("b4") = Sheets("µn¿ý(2)").Range("b8")
        Range("h4") = Sheets("µn¿ý(2)").Range("f9")
        Range("b6") = Sheets("µn¿ý(2)").Range("e8")
        Range("b7") = Sheets("µn¿ý(2)").Range("b9")

        Range("a11:a24") = Sheets("µn¿ý(2)").Range("k13:k26").Value
        Range("h11:h24") = Sheets("µn¿ý(2)").Range("k27:k40").Value
        Range("a25:a35") = Sheets("µn¿ý(2)").Range("k41:k51").Value
        Range("h25:h35") = Sheets("µn¿ý(2)").Range("k52:k62").Value

    Case Is >= 0
        Sheets("ñ¨ì°O¿ýªí (1±i)").Select
        If Sheets("ñ¨ì°O¿ýªí (1±i)").Range("A11") <> "" Then
           Sheets("ñ¨ì°O¿ýªí (1±i)").Range("A11:h22").ClearContents
        End If
        Range("b3") = Sheets("µn¿ý(2)").Range("d7")
        Range("b4") = Sheets("µn¿ý(2)").Range("b8")
        Range("h4") = Sheets("µn¿ý(2)").Range("f9")
        Range("b6") = Sheets("µn¿ý(2)").Range("e8")
        Range("b7") = Sheets("µn¿ý(2)").Range("b9")
        Range("a11:a22") = Sheets("µn¿ý(2)").Range("k13:k24").Value
        Range("h11:h22") = Sheets("µn¿ý(2)").Range("k25:k36").Value



End Select
End Sub

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD