工作表数据提取与整理

suifly · 发表于 2024-1-16 11:33

本帖最后由 suifly 于 2024-1-16 11:40 编辑

工作表中有几十个工作簿，想对每一个工作簿，指定数据进行抓取，在首页显示，只要每个工作簿固定列的表格出现数据，就会摘取国定位置数据到受压固定位置，自动增加行数。这个如何解决，类似总部统计很多分公司的数据，用什么函数还是编程能解决，应该学什么课程，有推荐么。谢谢

ykcbf1100 · 发表于 2024-1-16 11:35

工作表和工作簿搞反了吧，只有工作簿中才有工作表。

suifly · 发表于 2024-1-16 11:36

ykcbf1100 发表于 2024-1-16 11:35
工作表和工作簿搞反了吧，只有工作簿中才有工作表。

嗯，就是一个excel文件里面很多页

ykcbf1100 · 发表于 2024-1-16 11:38

suifly 发表于 2024-1-16 11:36
嗯，就是一个excel文件里面很多页

你最好上个附件，这样说不清楚。

suifly · 发表于 2024-1-16 11:40

ykcbf1100 发表于 2024-1-16 11:38
你最好上个附件，这样说不清楚。

嗯，上传了附件

乐铁松 · 发表于 2024-1-16 11:50

表格样式要统一，用TOCOL和VSTACK函数可解决。

suifly · 发表于 2024-1-16 11:52

乐铁松发表于 2024-1-16 11:50
表格样式要统一，用TOCOL和VSTACK函数可解决。

我试下，函数是不是不能做到更新，自动增加首页的统计行数

ykcbf1100 · 发表于 2024-1-16 14:28

suifly 发表于 2024-1-16 11:40
嗯，上传了附件

你分公司是直接用表名还是只取公司名？如果只取公司名，那只有一个安徽公司

suifly · 发表于 2024-1-16 14:28

ykcbf1100 发表于 2024-1-16 14:28
你分公司是直接用表名还是只取公司名？如果只取公司名，那只有一个安徽公司

我其实只放了一个分公司的两个项目，其实有很多分公司和项目

ykcbf1100 · 发表于 2024-1-16 14:51

参与一下。。。

Sub ykcbf() '//2024.1.16
Dim arr, brr
b = [{1,90,2,3,4,5,6,7,9,10,11,13}]
ReDim brr(1 To 10000, 1 To 13)
On Error Resume Next
For Each sht In Sheets
If InStr(sht.Name, "公司") Then
x = InStr(sht.Name, "公司")
fn = Left(sht.Name, x + 1)
With sht
arr = .UsedRange
For i = 5 To UBound(arr)
For j = 1 To 4
If arr(i, j) = Empty Then arr(i, j) = arr(i - 1, j)
Next
If InStr(arr(i, 6), "√") Then
m = m + 1
brr(m, 1) = m
brr(m, 2) = fn
For j = 3 To UBound(b)
brr(m, j) = arr(i, b(j))
Next
End If
Next
End With
End If
Next
With Sheets("收集页面")
.UsedRange.Offset(2).ClearContents
.[a3].Resize(m, 12) = brr
End With
MsgBox "OK！"
End Sub

复制代码

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