[已解决]求助！谢谢各位大侠啦，在线急等啊！

18675928790 · 发表于 2011-4-1 18:46

请问在同一个Excel工作簿内的最后一个总表内的E列里（从E3开始）依次向下返回其他工作表里“G列最下面的单元格里的数值”？此数值为可变量的），谢谢各位大侠啦，在线急等啊！

这个Excel报表里一共有一个总表和242个其他不同名称且名字没有规律的工作表，想要如下结果，并通过下拉公式或VBA语言来实现：

例如：E3单元格显示第一个工作表 G285 （该单元格为该工作表G列最下面的有数值的）的值
E4单元格显示第二个工作表 G1035 （该单元格为该工作表G列最下面的有数值的）的值

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2011-4-2 15:34

回复 18675928790 的帖子

Sub 数量录入()
Dim Ro As Long
For Ro = 3 To Sheets("总表").[C65536].End(xlUp).Row
Sheets("总表").Cells(Ro, 5) = Worksheets(Ro - 2).[G65536].End(xlUp)
Next
End Sub

复制代码

这个程序的注意事项：
1.总表必须排在最后面
2.分表的排列顺序必须和总表中C列的名称顺序一致。
3.如果不满足前面两点，就再请高手加一个判断循环语句。在所有工作表中找出与C列想对应的工作表。

附件：

复件成品仓日常进出明细表.rar (27.75 KB, 下载次数: 1)

YBBFNXK1981 · 发表于 2011-4-1 18:55

直接等于就可以了。

YBBFNXK1981 · 发表于 2011-4-1 19:23

复件成品仓日常进出明细表.rar (41.9 KB, 下载次数: 3)

18675928790 · 发表于 2011-4-2 12:26

大哥，两百多个表，你要我一个一个等于吗？都说了要公式或VBA语言的

sunjing-zxl · 发表于 2011-4-2 15:34

这个最佳答案由 sunjing-zxl 给出，感谢 sunjing-zxl 的回答。

单击隐藏图章

回复 18675928790 的帖子

Sub 数量录入()
Dim Ro As Long
For Ro = 3 To Sheets("总表").[C65536].End(xlUp).Row
Sheets("总表").Cells(Ro, 5) = Worksheets(Ro - 2).[G65536].End(xlUp)
Next
End Sub

复制代码

这个程序的注意事项：
1.总表必须排在最后面
2.分表的排列顺序必须和总表中C列的名称顺序一致。
3.如果不满足前面两点，就再请高手加一个判断循环语句。在所有工作表中找出与C列想对应的工作表。

附件：

复件成品仓日常进出明细表.rar (27.75 KB, 下载次数: 1)

yrlou · 发表于 2011-4-2 16:10

本帖最后由 yrlou 于 2011-4-2 16:12 编辑

在E3单元格里输入公式：LOOKUP(9E+307,INDIRECT(C3&"!G:G"))往下拖就行了

18675928790 · 发表于 2011-4-3 12:25

yrlou & sunjing-zxl
两位都是高手啊，两位的都可以，谢谢您了！

18675928790 · 发表于 2011-4-3 12:32

不过用sunjing-zxl 同学的VB语言却不是可变量的，还是公式好

18675928790 · 发表于 2011-4-3 12:52

回复 yrlou 的帖子

您好：您的这个公式很好
在E3单元格里输入公式：LOOKUP(9E+307,INDIRECT(C3&"!G:G"))往下拖就行了

不过能不能不要引用C3呢？

或者帮我修改下下面这个公式

因为我C3这个单元格的超链接名字用的是这个公式
HYPERLINK(INDEX(sheets,ROW(A21))&"!a1",REPLACE(INDEX(sheets,ROW(A21))&T(NOW()),1,FIND("]",INDEX(sheets,ROW(A21))),""))

还有名称定义sheets，引用为 =GET.WORKBOOK(1)

创建的超链接，这个公式有点不好就是当工作表名里包含空格或“ - ” 时，超链接引用是无效的

我的工作名里边有这样的“汽车行驶记录GGDR-MB表”所以我都在创建好超链接前把“ - ”改为小数点了，这样超链接才有用

麻烦您了

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

[已解决]求助！谢谢各位大侠啦，在线急等啊！

评分