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

[µo°Ý] vlookup¦X¦}ªº¸ê®Æ

[µo°Ý] vlookup¦X¦}ªº¸ê®Æ

¤U¹Ï¥ªÃä¬O¸ê®ÆÀÉ¡A¥kÃä¬Oµ²ªG¡C¥Ñ©ó³f¬[§Ç¸¹ªºÀY7¦æ¬O¦X幷¡A²Ä8-14¦æ¬O¦X幷¡A¨C¦¸¦X幷¦æ¼Æ¤£©T©w¡C
¦³¨S¦³¤èªk¹³¥kÃ䨺¼Ë¡A¥´¤J³f¬[§Ç¸¹¡AµM«áª½±µ§â¸Ó§Ç¸¹ªº¸ê®ÆÂà¨ì¥kÃä¡H¦pªþ¥ó¡C

                                                                ¸ê®ÆÀÉ                                                                                           µ²ªG
§Ç号        货¬[编号        货¬[§Ç号        单¤¸        数¶q        楼层        备ª`        ±Æ¦C¤è¦¡                        SR2000                        SR2001                       
1                  GS200                SR2000              FC186          1                 02F                         SR2001         SR2003                FC186        1                FC130        1               
2                                                                FC167          1                 02F                                                                FC167        1                FC117        1               
3                                                                FC161          1                 02F                                                                FC161        1                FC116        1               
4                                                                FC161          1                 02F                                                                FC161        1                FC130        1               
5                                                                FC153          1                 02F                                                                FC153        1                FC117        1               
6                                                                FC153          1                 02F                                                                FC153        1                FC116        1       
7                                                                FC151          1                 02F                                                                FC151        1                FC130        1               
8                                     SR2001           FC130      1            02F                                                                  Total        7                Total        7                                               
9                                                                FC117          1                02F                                                                                                                       
10                                                                FC116          1                02F                                                                                                                       
11                                                                FC130          1                02F                                                                                                                       
12                                                                FC117          1                02F                                                                                                                       
13                                                                FC116          1             02F                                                                                                                       
14                                                                FC130          1                02F

test.rar (9.34 KB)

(¿é¤J½s¸¹12160) googleºô§}:https://hcm19522.blogspot.com/
google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

¦^´_ 2# hcm19522


    ÁÂÁ¡A¤£¹L³o­ÓµªÀ³¥X¨Óªº®ÄªG¡A¤£¬O§Úªº°ÝÃDªº¥Øªº¡C

TOP

¥»©«³Ì«á¥Ñ singo1232001 ©ó 2023-12-21 02:42 ½s¿è

¦^´_ 3# 198188

¥N½X»Ý©ñ¦b¤u§@ªí¼Ò²Õ  ¤£­n©ñ¦bModule1


    Dim OUT1
Private Sub Worksheet_Change(ByVal Target As Range)
If OUT1 = True Then Exit Sub
If Target.Height > 10000 Then Exit Sub
If Target.Width > 10000 Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Target.Row > 1 Then Exit Sub
If Target.Column = 11 Then
ElseIf Target.Column = 14 Then
ElseIf Target.Column = 17 Then
ElseIf Target.Column = 20 Then
Else
Exit Sub
End If
OUT1 = True
Target.Offset(1, 0).Resize(100000, 2).ClearContents
OUT1 = False
r = Cells(Rows.Count, 1).End(3).Row
For i = 2 To r
If UCase(Target.Value) = UCase(Cells(i, 3).Value) Then
OUT1 = True
For j = i To Cells(i, 3).MergeArea.Count + i - 1
w = w + 1
Target.Offset(w, 0).Resize(1, 2).Value = Cells(j, 4).Resize(1, 2).Value
sumx = sumx + Cells(j, 5)
Next
End If
Next
If w <> 0 Then Target.Offset(w + 1, 0).Resize(1, 2) = Array("Total", sumx)
OUT1 = False
End Sub

TOP

¥»©«³Ì«á¥Ñ 198188 ©ó 2023-12-21 09:23 ½s¿è

¦^´_ 4# singo1232001
¦³ÂI©_©Ç¡A§âµ{¦¡©ñ¦b­¶­±ùØ¡A¦ý¬O¶}excel, À˵ø¥¨¶°®É¡Aª©­±¨S¦³¥ô¦ó¥¨¶°¡C
ÆÓ&#26631;&#39064;.jpg
2023-12-21 09:21

test vba.zip (82.13 KB)

TOP

¥»©«³Ì«á¥Ñ shuo1125 ©ó 2023-12-21 11:09 ½s¿è

¦^´_ 5# 198188
§A¦n~
¦¹¬°¤u§@ªí¨Æ¥ó¤¤½s¼gªºµ{¦¡½X¡A¬G¤£·|¥X²{¦b¼Ð·Çªº¡uÀ˵ø¥¨¶°¡v¦Cªí¤¤¡C
<¦]¤£ÄÝ©ó¼Ò²Õ¡]Modules¡^>

TOP

¦^´_ 6# shuo1125


  ¦ý¬O³o¼Ë¦p¦ó¾Þ§@¡H¦p¤W¶Kªþ¥ó¡A¨S¦³¥ô¦ó¤ÏÀ³¥X¨Ó¡C

TOP

¦^´_ 7# 198188
¦]¬°§A­ìªí®æ¬O¦b³æ¤¸®æK1,N1µ¥¦a¤è¾Þ§@....©Ò¥H¼y¤j°w¹ï§A»Ý¨D¼gªº¡A
¨Ì­ì¥»ªí®æ¶ñ¤J³f¸¹¡A·í¤u§@ªíÅܤƮɡA¤º®e´N·|ÅܰʤF....¬Ý¹Ï¤K¡C
-----------------------------------
vlookup¦X¦}ªº¸ê®Æ.PNG
2023-12-21 14:30

TOP

¦^´_ 7# 198188


    ¤§«eªº¥N½X ¬O¦bk1¥´¦r´N·|ª½±µÄ²µo¾Þ§@

­Y·Q­n¥´§¹¦A¤â°Ê°õ¦æ¥Î¦p¤U¥N½X
Sub test()
r = Cells(Rows.Count, 1).End(3).Row
Range("k2:u1000").ClearContents
For Each Z In Range("K1,N1,Q1,T1")
t5 = 0: t4 = 0
If Z.Value <> "" Then
    For i = 2 To r
    If UCase(Z.Value) = UCase(Cells(i, 3).Value) Then
        For j = i To Cells(i, 3).MergeArea.Count + i - 1
        t4 = t4 & "¡¶" & Cells(j, 4)
        t5 = t5 & "¡¶" & Cells(j, 5)
        tsum = tsum + Cells(j, 5)
        Next
    End If
    Next
   
    a4 = Split(Mid(t4 & "¡¶Total", 3, 9999), "¡¶")
    a5 = Split(Mid(t5 & "¡¶" & tsum, 3, 9999), "¡¶")
   
    If UBound(a4) > 0 Then
    Z.Offset(1, 0).Resize(UBound(a4) + 1, 1) = Application.Transpose(a4)
    Z.Offset(1, 1).Resize(UBound(a4) + 1, 1) = Application.Transpose(a5)
    End If
End If
Next

End Sub

TOP

¦^´_ 9# singo1232001


    ÁÂÁ¡I¯à¤£¯à¦³ª`ÄÀ¤@¤U¡A³o¼Ë§Ú¥i¥H§ó¦n²z¸Ñ¨C¥y¥Î·N¡A¦pªG®æ¦¡©ÎªÌªí®æ¦³ÅÜ°Ê¡A¤]¥i¥H¦Û¤v°µ¥X­×§ï¡C:handshake

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD