Q
查找指定的范围
0
A
回答
0
使用结束(xlToRight)。
+1
这是错误的做法:)想象一下,如果Activecell位于最后一列? – 2013-04-30 21:30:30
+0
优秀点...我总是忘记'查找'。感谢您将此引起我的注意。 – Marshall 2013-04-30 21:44:13
1
第一
第一件事不要使用UsedRange
来设置范围。我已经解释过HERE,为什么你不应该使用UsedRange
Set RngSource = ActiveWorkbook.ActiveSheet.UsedRange
查找最后一列有数据和最后一行其中有数据,然后设置你的范围。所以你不会出现从范围中找到最后一列的问题。下面是一个例子
Sub Sample()
Dim ws As Worksheet
Dim rng As Range
Dim lRow As Long, lCol As Long
'~~> Set your worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
With ws
If Application.WorksheetFunction.CountA(.Cells) <> 0 Then
'~~> Find Last Row
lRow = .Cells.Find(What:="*", _
After:=.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row
'~~> Find Last Column
lCol = .Cells.Find(What:="*", _
After:=.Range("A1"), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Column
Else
lRow = 1: lCol = 1
End If
'~~> Set your range
Set rng = .Range(.Cells(1, 1), .Cells(lRow, lCol))
Debug.Print rng.Address
End With
End Sub
相关问题
- 1. 查找范围
- 2. 查找日期范围与指定日期范围相交的行
- 3. C#检查指定范围内的丢失范围
- 4. 查找指定段的webm视频的字节范围
- 5. 查找定义的一组范围之外的所有范围
- 6. Excel查找范围内指定值的最后一条记录
- 7. 的SQLQuery来查找日期在指定范围内
- 8. 查找指定日期范围内的最大值
- 9. NSAttributedString指定范围?
- 10. 与给定的时间范围相交查找时间范围
- 11. SQL查找范围
- 12. 查找给定范围内的数字?
- 13. Rails ActiveRecord在指定范围内通过标记查找问题
- 14. 如何查找NSDate是否在指定范围内?
- 15. 查找C中的范围
- 16. 查找范围内的值
- 17. 变量的查找范围
- 18. 查找特定时间范围
- 19. 纵向查找在特定范围
- 20. VBA查找 - 查找范围错误
- 21. 使用barplot指定范围
- 22. 没有指定范围 - Google_Auth_Exception
- 23. 角指令范围:设定
- 24. 只读指定范围
- 25. 指定索引范围
- 26. 指定日期范围
- 27. 在范围中查找列
- 28. 查找ASCII字符范围
- 29. 查找范围SQL复制
- 30. 查找属性范围
'RngSource.Columns(RngSource.Columns.Count).Column' – NickSlash 2013-04-30 21:26:14
见[此](http://www.siddharthrout.com/2012/11/09/find-last- excel-sheet-vbavb-net /) – 2013-04-30 21:28:19