[已解决]请大神改改代码实现图片功能

透明世界1987

大神改一下代码实现如图功能
（请注意一下，数据不是每次都一样多哦 ，有时候就七八九条，有时候二三十，最多上百条数据！但是模式不变，读取过来会出现同一个供应商的东西只有第一条有下面都是空白）

供应商交期追踪表 - 副本.zip (171.08 KB, 下载次数: 5)

2022-1-20 13:08 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

sam-wang

2022-1-20 13:51

請測試看看，謝謝
Sub test()
Dim Arr, xD, T$, T1$, i&
Set xD = CreateObject("Scripting.Dictionary")
With Sheet1.Range("a1").CurrentRegion
    Arr = .Value
    For i = 2 To UBound(Arr)
        T = Arr(i, 1)
        If T <> "" Then
            xD(T) = Array(T, Arr(i, 2)): T1 = T
        Else
            Arr(i, 1) = xD(T1)(0): Arr(i, 2) = xD(T1)(1)
        End If
    Next
    .Value = Arr
    .Sort Key1:=.Item(11), Order1:=1, Header:=1
End With
End Sub

跳转到最佳答案楼层

sam-wang

請測試看看，謝謝
Sub test()
Dim Arr, xD, T$, T1$, i&
Set xD = CreateObject("Scripting.Dictionary")
With Sheet1.Range("a1").CurrentRegion
    Arr = .Value
    For i = 2 To UBound(Arr)
        T = Arr(i, 1)
        If T <> "" Then
            xD(T) = Array(T, Arr(i, 2)): T1 = T
        Else
            Arr(i, 1) = xD(T1)(0): Arr(i, 2) = xD(T1)(1)
        End If
    Next
    .Value = Arr
    .Sort Key1:=.Item(11), Order1:=1, Header:=1
End With
End Sub

林木水

方法有很多总：
1.数据透视表的时候，就设置好显示的格式如图。勾选重复所有项+以表格形式显示
2.函数公式方法，第一步Ctrl+G定位空值，在编辑栏输入=第一个非空单元格，也就是=A3，按Ctrl+Enter全部填充，同理可以把B列填充，当然也可以选择两列直接定位空值，同样方法填充
3.vba代码:

1. Sub demo()
   
2. Dim i As Integer, H As Integer, arr
   
3. H = Sheet1.Range("A65536").End(xlUp).Row
   
4. If H = 1 Then End
   
5. arr = Sheet1.Range("a2:b" & H)
   
6. For i = 1 To UBound(arr, 1)
   
7.     If arr(i, 1) = "" Then
   
8.         arr(i, 1) = arr(i - 1, 1)
   
9.         arr(i, 2) = arr(i - 1, 2)
   
10.     End If
    
11. Next i
    
12.     Sheet1.Range("a2").Resize(UBound(arr, 1), 2) = arr
    
13. End Sub
    

复制代码

透明世界1987

sam-wang 发表于 2022-1-20 13:51
請測試看看，謝謝
Sub test()
Dim Arr, xD, T$, T1$, i&

供应商交期追踪表 - 副本.zip (615.5 KB, 下载次数: 1)

2022-2-9 09:31 上传

点击文件名下载附件
麻烦大神帮忙看一下，之前给的代码不对哦 ，读取过来，然后空白单元格复制上一个单元格这一步就不对了，设备号这一列 全部复制重复了。

透明世界1987

林木水 发表于 2022-1-20 14:16
方法有很多总：
1.数据透视表的时候，就设置好显示的格式如图。勾选重复所有项+以表格形式显示
2.函数公 ...

这段代码和二楼的大神一样，A列可以正常，B列变成整列复制成一样的了