有哪些信誉好的足球投注网站- 1、本文档共16页，可阅读全部内容。
- 2、有哪些信誉好的足球投注网站（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
将多个工作簿中的数据合并到一个工作簿
将多个工作簿中的数据合并到一个工作簿
2009年05月9日, 5:00 下午
?(4?人投票, 平均:?4.75?out of 5)
在MSDN文档资料库中，Microsoft Office Excel MVP?Ron de Bruin提供了一些非常好的代码示例，用于将同一文件夹里的多个工作簿中某一工作表的数据合并到一个工作簿中。下面，来介绍这些实用代码，也通过这些代码来学习VBA。当然，您可以适当修改代码，使代码满足自已想要的功能。 查找单元格区域中的最后一个单元格、最后一行或最后一列 这是后面示例中要用到的通用代码，用来查找单元格区域中的最后一行、最后一列或最后一个单元格。代码如下：
Function RDB_Last(choice As Integer, rng As Range)
选择 1 代表最后一行.
选择 2 代表最后一列.
选择 3 代表最后一个单元格.
Dim lrw As Long
Dim lcol As Integer
?
Select Case choice
?
Case 1:
On Error Resume Next
RDB_Last = rng.Find(What:=*, _
after:=rng.Cells(1), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
?
Case 2:
On Error Resume Next
RDB_Last = rng.Find(What:=*, _
after:=rng.Cells(1), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Column
On Error GoTo 0
?
Case 3:
On Error Resume Next
lrw = rng.Find(What:=*, _
after:=rng.Cells(1), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
On Error GoTo 0
?
On Error Resume Next
lcol = rng.Find(What:=*, _
after:=rng.Cells(1), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious, _
文档评论（0）