查看: 516|回复: 8
单元格区域整体引用问题（急，请高手赐教，非常感谢）
阅读权限10
在线时间 小时
本帖最后由 zane811 于
22:47 编辑
详细问题请见附件，主要是想通过地区的筛选得出不同的差异系数，再依据得出的差异系数，自动生成该系数下对应的等级表。十分着急，请高手赐教（用函数实现），非常感谢。
22:39 上传
点击文件名下载附件
10.62 KB, 下载次数: 13
阅读权限20
在线时间 小时
(10.55 KB, 下载次数: 7)
23:05 上传
点击文件名下载附件
看是不是你要的
你好！在帮助他人解决问题跟帖附件时，请尽量简略说明一下采用什么方法解决，或者把关键公式复制到编辑栏里，这样方便其他会员后续学习，同时避免后面跟帖的重复。谢谢！&
阅读权限10
在线时间 小时
戆小琳 发表于
看是不是你要的
对的，就是这个效果的。太感谢了，能麻烦楼主把原理（或步骤）说详细点吗
阅读权限20
在线时间 小时
H列加了一个辅助查找列，然后就是多条件查找即可。
23:11 上传
点击文件名下载附件
11.38 KB, 下载次数: 3
阅读权限100
在线时间 小时
=OFFSET($I$1,MATCH($B$2&&*&,$I$2:$I$27,)+ROW(A1)-1,COLUMN(A1)-1)&&&复制代码横拉下拉。
23:12 上传
点击文件名下载附件
11.44 KB, 下载次数: 9
阅读权限10
在线时间 小时
看见星光 发表于
横拉下拉。
非常感谢。公式最后面那个&&&，是什么意思呀
阅读权限100
在线时间 小时
zane811 发表于
非常感谢。公式最后面那个&&&，是什么意思呀
公式下拉过头啦，会返回0，我就顺手加了个&“”,把0消除掉。。。。。如果公式使用范围是固定的，这个可以不用的。
阅读权限10
在线时间 小时
& & & & & & & &
看见星光 发表于
公式下拉过头啦，会返回0，我就顺手加了个&“”,把0消除掉。。。。。如果公式使用范围是固定的，这个可以 ...
非常感谢。楼主能麻烦把公式解释一下吗 我看的不是很懂。OFFSET($I$1,MATCH($B$2&&*&,$I$2:$I$27,)+ROW(A1)-1,COLUMN(A1)-1)&&&，公式中&&*& 是表示什么意思呢，还有后面的ROW(A1)-1,COLUMN(A1)-1，是怎么得出来的呢，谢啦
阅读权限100
在线时间 小时
zane811 发表于
非常感谢。楼主能麻烦把公式解释一下吗 我看的不是很懂。OFFSET($I$1,MATCH($B$2&&*&,$I$2:$I$27,)+ROW(A ...
b2&&*&,是借助了通配符“*”，通过match来匹配，意思是主要B2出现在单元格数值的前列，即视为单元格匹配。。至于ROW(a1)-1，在公式下拉过程中，会演变成row(a2)-1,row(a3)-1等，使OFFSET结果数值不断向下移动。。你可以点击公式求值看到整个公式的运算过程，相信会有所了解。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看: 1103|回复: 7
关于跨工作薄单元格数据引用问题
阅读权限20
在线时间 小时
跨工作薄单元格引用，如果直接用“=”或者用“indirect函数”，目标工作簿都必须是打开的，如果涉及引用工作薄较多
（比如好几百个这样的工作薄）就不适用了，请教各位高手老师指点用VBA的方式或者其它更好的能不打开目标
工作簿但是可以引用其数值的方式？不胜感激！！！详见附件
14:31 上传
点击文件名下载附件
973.17 KB, 下载次数: 22
阅读权限95
在线时间 小时
求助收到，请测试：Sub 宏1()
& & Dim cnn As Object, rs As Object, SQL$, p$, f$, m&, arr, brr, crr#(), i&, j&
& & Application.ScreenUpdating = False
& & arr = Range(&B5:B& & Range(&B& & Rows.Count).End(xlUp).Row)
& & ReDim crr(1 To UBound(arr), 1 To 12)
& & p = ThisWorkbook.Path & &\分表\&
& & Set cnn = CreateObject(&adodb.connection&)
& & For i = 1 To UBound(arr)
& && &&&f = p & arr(i, 1) & &.xlsx&
& && &&&If Dir(f) && && Then
& && && && &With GetObject(f)
& && && && && & brr = .Sheets(1).[i3:u3]
& && && && && & .Close False
& && && && &End With
& && && && &For j = 1 To 9
& && && && && & crr(i, j) = brr(1, j)
& && && && &Next
& && && && &crr(i, 10) = brr(1, 13)
& && && && &crr(i, 11) = brr(1, 12)
& && && && &crr(i, 12) = brr(1, 11)
& && &&&End If
& & Next
& & [c5].Resize(i - 1, 12) = crr
& & Application.ScreenUpdating = False
End Sub
复制代码
阅读权限95
在线时间 小时
(983.59 KB, 下载次数: 60)
15:25 上传
点击文件名下载附件
阅读权限95
在线时间 小时
经测试附件中文件很大，打开速度很慢，考虑到可能有几百个这样的文件，下面使用ADO法来加快速度：Sub ADO法()
& & Dim cnn As Object, rs As Object, SQL$, p$, f$, m&, arr, brr#(), i&, j&
& & arr = Range(&B5:B& & Range(&B& & Rows.Count).End(xlUp).Row)
& & ReDim brr(1 To UBound(arr), 0 To 11)
& & p = ThisWorkbook.Path & &\分表\&
& & Set cnn = CreateObject(&adodb.connection&)
& & For i = 1 To UBound(arr)
& && &&&f = p & arr(i, 1) & &.xlsx&
& && &&&If Dir(f) && && Then
& && && && &m = m + 1
& && && && &If m = 1 Then
& && && && && & cnn.Open &Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='excel 12.0;hdr=no';Data Source=& & f
& && && && && & SQL = &select f1,f2,f3,f4,f5,f6,f7,f8,f9,f13,f12,f11 from [Sheet1$i3:u3]&
& && && && &Else
& && && && && & SQL = &select f1,f2,f3,f4,f5,f6,f7,f8,f9,f13,f12,f11 from [Excel 12.0;hdr=Database=& & f & &].[Sheet1$i3:u3]&
& && && && &End If
& && && && &Set rs = cnn.Execute(SQL)
& && && && &For j = 0 To 11
& && && && && & brr(i, j) = rs.Fields(j).Value
& && && && &Next
& && &&&End If
& & Next
& & [c5].Resize(i - 1, 12) = brr
& & rs.Close
& & Set rs = Nothing
& & cnn.Close
& & Set cnn = Nothing
End Sub
复制代码
阅读权限95
在线时间 小时
(984.25 KB, 下载次数: 71)
15:32 上传
点击文件名下载附件
阅读权限20
在线时间 小时
赵大师！非常感谢这么神速就回复了，运行时出现了问题，是不是我的EXCEL有问题？
运行出问题.png (9.55 KB, 下载次数: 0)
15:56 上传
阅读权限95
在线时间 小时
jemmally 发表于
赵大师！非常感谢这么神速就回复了，运行时出现了问题，是不是我的EXCEL有问题？
5楼附件？可能你的Office安装不完整
请搜索SQL或ADO，下载运行试试看，如果出错，说明你的电脑有问题
阅读权限20
在线时间 小时
好的 非常感谢！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师EXCEL高手请进，关于单元格引用的问题~_百度知道
EXCEL高手请进，关于单元格引用的问题~
1、F1等于A列出现最多次的单元格数值
提问者采纳
B10输入公式=if($A10=&&,&&,供亥垛酵艹寂讹檄番漏if($A10=offset($A$12,1-column(A1),),0,1))
提问者评价
其他类似问题
为您推荐：
其他2条回答
B10输入公式=if($A10=&&,&&,供亥垛酵艹寂讹檄番漏if($A10=offset($A$12,1-column(A1),),0,1))
可用取众数的函数mode(数组)，数组可以选A列的数值。
excel的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁EXCEL高手请进，求函数公式解决一个关于单元格引用的问题~_百度知道
EXCEL高手请进，求函数公式解决一个关于单元格引用的问题~
求A1写个公式,D2=A1D1=A1,D4=A1 依次类推,D3=A1，让我直接可以往下托
提问者采纳
D1输入公式=A$10000-OFFSET(A$10000,-ROW(A2),)向下填充，
提问者评价
来自：求助得到的回答
来自团队：
其他类似问题
为您推荐：
excel的相关知识
其他2条回答
在D1中输入或复制粘贴=A$10000-INDIRECT(&A&&9999-ROW(A1))下拉填充。
D1=$A$10000-INDIRECT(&A&&9999-row(a1))
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁