用VBA 提取多个excel里面 固定的多个单元格数据，跪谢！

linda662

这代码提取了一个单元格的数据，如果需要提取多个单元格的数据，请问要怎么样改？跪谢!
Sub a()
Dim nm As String, filePath As String
Dim wb As Workbook
Dim brr(),n,str
Set wb = ActiveWorkbook
filePath = wb.Path & "\"
nm = Dir(filePath & "*.xls*")
Application.DisplayAlerts = False
n=1
redim brr(1 to 100000)
Do While Len(nm) <> 0
If nm <> wb.Name Then
Workbooks.Open filePath & nm
str= Workbooks(nm).worksheets("Sheet1").[A1]
if str<>"" then
brr(n)=str
n=n+1
end if
Workbooks(nm).Close
End If
nm = Dir()
Loop
wb.worksheets(1).[b1].resize(n-1,1)=application.transpose(brr)
Application.DisplayAlerts = True
End Sub

约定的童话

这代码好眼熟啊，有附件吗？

linda662

约定的童话 发表于 2019-7-1 12:59
这代码好眼熟啊，有附件吗？

请参考附件，是手工录入的一个客户订单信息，这样的excel订单有很多个，格式一样。我需要做的是把客户发来的所有excel订单中 有颜色的单元格都汇总到一个表格上。我的代码智能提取到一个单元格，怎么样一次把全部有颜色的单元格都提取？谢谢大师！

约定的童话

linda662 发表于 2019-7-2 17:09
请参考附件，是手工录入的一个客户订单信息，这样的excel订单有很多个，格式一样。我需要做的是把客户发 ...

没文件说再多也没用啊

w609053988

这个需求好像前几天看到过，而且也回复过

Ww1206

解决了吗，我貌似可以帮忙啊，哈哈

心云德乐

在学习VBA之前，非常努力补习了《电脑系统的安装与重装知识》，压缩包之类的知识只是其中的一小部分。铺垫了N多的IT知识才学习VBA编程。