怎样实现在多个excel表格中查询并返回数据的单元格位置

早点睡吧 · 发表于 2012-8-2 13:12

本帖最后由早点睡吧于 2012-8-2 13:14 编辑

首先，谢谢看这帖子的各位大侠！{:soso_e183:}

1、问题简介：

我这边对库存资产进行了一次盘点，需要从中挑出一些资产处理掉，共6个仓库，现在每个资产位置知道，但是分散在各个表里面，现在需要在一个表格里面统计出来：

2、具体需求：

需求是：在表“B9”，“B8”，“A7”，“A6”，“A3南”，“A3北”找出《总表（差异和位置）》中资产编码的位置，并返回相关信息----位置信息=表名+（数据单元格所在列第三行数据值）+(数据单元格所在行数 -4)

比如：查询到HSHC0403-0207的库存位置输出为：B9-（SR-A1)-3。结果如下2图所示：具体数据见附件

2012-8-1盘点数据汇总chuli.rar (104.11 KB, 下载次数: 48)

需求解释

数据介绍

早点睡吧 · 发表于 2012-8-2 13:34

本帖最后由早点睡吧于 2012-8-2 13:35 编辑

不知道是不是实现起来比较难呢？
感觉手工查找就三步：
1、ctrl+F （选工作簿查询）
2、取对应列第三行单元格数值
3、去单元格所在行数减4
不过数据好多有几千条，还请各位大侠帮忙呢！

自由自在来了 · 发表于 2012-8-2 14:36

这个比较复杂，要用VBA的

LIUZHU · 发表于 2012-8-2 15:00

来一个，抛砖引玉，如果有问题，还请高手指点，效果见附件

Private Sub CommandButton1_Click()
Dim Sht As Worksheet, Rng As Range
Dim Arr, r&, i&
Application.ScreenUpdating = False
r = Range("A" & Cells.Rows.Count).End(xlUp).Row
Range("D2:D" & r).ClearContents
Arr = Range("A2:D" & r).Value
For Each Sht In Worksheets
If Sht.Name <> ActiveSheet.Name Then
With Sht.UsedRange
For i = 1 To UBound(Arr)
Set Rng = .Find(what:=Arr(i, 2), lookat:=xlPart)
If Not Rng Is Nothing Then
Arr(i, 4) = Sht.Name & "-(" & Sht.Cells(3, Rng.Column).Value & ")-" & _
Rng.Row - 3
End If
Next
End With
End If
Next
If Not Rng Is Nothing Then
Set Rng = Nothing
End If
Range("A2:D" & r).Value = Arr
Application.ScreenUpdating = True
End Sub

复制代码

早点睡吧 · 发表于 2012-8-2 15:33

LIUZHU 发表于 2012-8-2 15:00
来一个，抛砖引玉，如果有问题，还请高手指点，效果见附件

O(∩_∩)O谢谢！我好好研究一下

lhzhy1989 · 发表于 2016-3-30 13:03

厉害，学习下

wyd1008 · 发表于 2016-10-1 12:53

留个脚印，真好

茉莉Molly810312 · 发表于 2022-10-27 15:23

LIUZHU 发表于 2012-8-2 15:00
来一个，抛砖引玉，如果有问题，还请高手指点，效果见附件

好厉害吖

excelkill · 发表于 2023-7-15 20:05

学习一下，不知是不是我需要的

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

[求助] 怎样实现在多个excel表格中查询并返回数据的单元格位置