关于在同个文件夹下提取数据的问题求助，在线等……

hmc530 · 发表于 2022-5-31 13:55

在同个文件夹下的《配送指令》表格内将Q列里面合并单元内的总成件的零件名称和物料号提取到文件夹内《总数据》表格，

然后接着将合并单元格内对应的零部件提取过去，如果不是合并单元格的就直接提取对应的零部件信息过去。以此类推下去

例子.zip (92.03 KB, 下载次数: 12)

hmc530 · 发表于 2022-5-31 19:11

:在线等待中&…………

hmc530 · 发表于 2022-5-31 21:05

继续等待路过的大哥、大神、老师、版主的帮忙……

suiyuanban · 发表于 2022-6-1 10:03

本帖最后由 suiyuanban 于 2022-6-1 10:16 编辑

hmc530 发表于 2022-5-31 21:05
继续等待路过的大哥、大神、老师、版主的帮忙……

代码在配送指令这个文件中，你试试吧
数据太多了，我没有验证准确性，你自己验证吧
更新了字体和格式的设置

suiyuanban · 发表于 2022-6-1 10:04

本帖最后由 suiyuanban 于 2022-6-1 13:04 编辑

Sub t()
Dim arr, brr
Dim wb As Workbook
Application.ScreenUpdating = False

arr = Sheet1.Range("d14:q" & Sheet1.Range("d65536").End(3).Row)
For i = 1 To UBound(arr)
If arr(i, 14) <> "" Then j = j + 1
Next
ReDim brr(1 To UBound(arr) + j, 1 To 24)
k = UBound(brr)
For i = UBound(arr) To 1 Step -1
If arr(i, 14) = "" Then
      '零件名，物料号，数量，供应商代码，供应商
      brr(k, 1) = arr(i, 4): brr(k, 8) = arr(i, 2): brr(k, 11) = arr(i, 6): brr(k, 19) = arr(i, 7): brr(k, 24) = arr(i, 8)
      k = k - 1
Else
      '零件名，物料号，数量，供应商代码，供应商
      brr(k, 1) = arr(i, 4): brr(k, 8) = arr(i, 2): brr(k, 11) = arr(i, 6): brr(k, 19) = arr(i, 7): brr(k, 24) = arr(i, 8)
      '零件名，物料号，数量
      brr(k - 1, 1) = Split(arr(i, 14), Chr(10), 2)(0): brr(k - 1, 8) = Split(arr(i, 14), Chr(10), 2)(1): brr(k - 1, 11) = arr(i, 6)

      k = k - 2
End If
Next

fname = ThisWorkbook.Path & "\总数据.xlsm"
Set wb = Workbooks.Open(fname)
Range("g15:ah" & Range("k65536").End(3).Row).ClearContents
Range("k15").Resize(UBound(brr), 24) = brr
For i = 1 To UBound(brr)
      If brr(i, 19) = "" Then
         With Range(Cells((i + 14), 7), Cells((i + 14), 35))
            .Font.ColorIndex = 3
            .Font.Size = 10
            .Font.Bold = True
            .Interior.ColorIndex = 27
         End With
         With Range("a15:ai" & UBound(brr) + 14)
            .Font.Size = 10
            .Borders.LineStyle = 1
         End With
      End If
Next
wb.Save
wb.Close
Set wb = Nothing
Application.ScreenUpdating = True
End Sub

hmc530 · 发表于 2022-6-1 11:14

suiyuanban 发表于 2022-6-1 10:03
代码在配送指令这个文件中，你试试吧
数据太多了，我没有验证准确性，你自己验证吧
更新了字体和格式的 ...

终于等到您了！感谢您的帮助！我要是在总数据表运行的话需要改动哪里了啊？

suiyuanban · 发表于 2022-6-1 11:30

hmc530 发表于 2022-6-1 11:14
终于等到您了！感谢您的帮助！我要是在总数据表运行的话需要改动哪里了啊？

代码放在总数据表里

hmc530 · 发表于 2022-6-1 13:13

suiyuanban 发表于 2022-6-1 11:30
代码放在总数据表里

不会清空总表数据的吧？？是要在总表原有数据下面继续填充！

suiyuanban · 发表于 2022-6-1 14:08

本帖最后由 suiyuanban 于 2022-6-1 14:10 编辑

hmc530 发表于 2022-6-1 13:13
不会清空总表数据的吧？？是要在总表原有数据下面继续填充！

这个不会删除之前的数据
报错你调试一下看看，是哪句报错，我电脑运行没有问题

hmc530 · 发表于 2022-6-1 15:34

suiyuanban 发表于 2022-6-1 14:08
这个不会删除之前的数据
报错你调试一下看看，是哪句报错，我电脑运行没有问题

配送指令.zip (201.22 KB, 下载次数: 5)

我把格式一样的清单放进去就出现这个错误！这是什么问题呀？

		自动登录	找回密码
密码			免费注册

[求助] 关于在同个文件夹下提取数据的问题求助，在线等……

评分

评分