已更新：如何将内容相同的列自动对齐行，后面的内容相应对齐

hljycmx

已解决：如何将内容相同的列自动对齐行，后面的内容相应对齐

acbczhhw

没看明白您想达到什么效果

hljycmx

acbczhhw 发表于 2024-10-10 12:36
没看明白您想达到什么效果

不好意思，附件已更新

hljycmx

谢谢各位，在本版找到了其他老师大概相同的问题答案，达到了想要的效果=IF(ISNA(MATCH($A4,$F$3:$F$17,)),"",INDEX(F$3:F$17,MATCH($A4,$F$3:$F$17,)))

autohotey

没其他要求就新建表了

1. Sub 提取()
   
2. 
   
3.     Dim ws As Worksheet
   
4.     For Each ws In Worksheets
   
5.         If ws.Name = "结果表" Then
   
6.             Application.DisplayAlerts = False
   
7.             ws.Delete
   
8.             Application.DisplayAlerts = True
   
9.             Exit For
   
10.         End If
    
11.     Next ws
    
12.    
    
13.     Sheets("Sheet1").Copy After:=Sheets(Sheets.count)
    
14.     ActiveSheet.Name = "结果表"
    
15.    
    
16.     Dim resultLastRow As Long
    
17.     resultLastRow = Sheets("结果表").Cells(Sheets("结果表").Rows.count, "B").End(xlUp).Row
    
18.    
    
19.     Dim resultRange As Range
    
20.     Set resultRange = Sheets("结果表").Range("B2:B" & resultLastRow)
    
21.    
    
22.     Dim sheet1LastRow As Long
    
23.     sheet1LastRow = Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.count, "D").End(xlUp).Row
    
24.    
    
25.     Dim sheet1Range As Range
    
26.     Set sheet1Range = Sheets("Sheet1").Range("C2:E" & sheet1LastRow)
    
27.    
    
28.     Dim resultCell As Range
    
29.     For Each resultCell In resultRange
    
30.         Dim sheet1Cell As Range
    
31.         Set sheet1Cell = sheet1Range.Find(resultCell.Value, LookIn:=xlValues, lookat:=xlWhole)
    
32.         If Not sheet1Cell Is Nothing Then
    
33.             resultCell.Offset(0, 1).Value = sheet1Cell.Offset(0, -1).Value
    
34.             resultCell.Offset(0, 2).Value = sheet1Cell.Value
    
35.             resultCell.Offset(0, 3).Value = sheet1Cell.Offset(0, 1).Value
    
36.         Else
    
37.             resultCell.Offset(0, 1).Value = ""
    
38.             resultCell.Offset(0, 2).Value = ""
    
39.             resultCell.Offset(0, 3).Value = ""
    
40.         End If
    
41.     Next resultCell
    
42. End Sub

复制代码