Excel&VBA中选取单元格的方法（转）
1、选取一个单元格：
&& Range("A1").select
&& Range("A" &
&& Cells(1).select
&& Cells(1, 1).select
&& Cells(1, "A").select
2、选取连续单元格：
&& Range("a1:b10").select
&& Range("a1",
"b10").select
&& Range(Cells(1, 1), Cells(10,
2)).select
3、选取不连续单元格：
&& Range("a1,b2,c3").select
&& Union(Range("a1"),
Range("b2"), Range("c3")).select
&& Union(Cells(1, 1), Cells(2,
2), Cells(3, 3)).select
4、选取行：
&& Range("1:1").select
&& Rows("1:1").select
&& Rows(1).select
&& Range("2:10").select
&& Rows("2:10").select
&& Range("1:1,3:5").select
5、选取列：
&& Range("A:A").select
&& Columns("A:A").select
&& Columns(1).select
&& Range("A:F").select
&& Columns("A:F").select
&& Range("A:B,D:F").select
6、选取所有单元格：
&& Cells.select
7、实现分块合并单元格
&& Range("b1:g1, h1:m1,
n1:s1").MergeCells = True
**************************************************
取最后一行行号：i = Range("A65536").End(xlUp).Row
取最后一列列号：m = Range("dz1").End(xlToLeft).Column
**************************************************
Option Explicit
Dim i, j, m, iCol, iRow As Integer
Dim iCount, iSheet, iBook As Integer
’计算workbook中，每一个worksheet的cell为1的数目
Sub CheckNum()
iCount = 0
iBook = Application.Worksheets.Count
For i = 1 To iBook
Sheets(i).Activate
iRow = ActiveSheet.[c65535].End(xlUp).Row&
&&&’取最后一行
ActiveSheet.Range("dz2").End(xlToLeft).Column&
&& &’取最后一列
& &For j = 3 To
&&&’列循环
& For m = 3 To iRow&
&& & ’行循环
ActiveSheet.Cells(j, m) = "1" Then
&& & iCount =
iCount + 1
MsgBox "方案数为： " & iCount
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。Excel 2010 如何 VBA 代码选取连续单元格？-正解问答-正解网6Excel 2010 如何 VBA 代码选取连续单元格？我要选中 Excel 2010 工作表中的第 10 行，怎样用 VBA 代码程序来实现？我要选中 Excel 2010 工作表中的第 10 行，怎样用 VBA 代码程序来实现？同问已同问修改分享扫码分享复制网址OK了，粘贴即可！解答：1个同问：0人修改提问&&&&&我要选中 Excel 2010 工作表中的第 10 行，怎样用 VBA 代码程序来实现？提交图片把图片文件拖到这里即可上传上传完，点击「插入图片」按钮插入title插入图片图片链接:图片描述:添加取消视频title插入视频视频链接:添加取消目前已支持优酷网、土豆网、腾讯视频的视频播放页链接提交1个解答8正解在 Excel 2010 工作表中，可以通过选取行号或列标的方式来选取一行或多行，一列或多列，可以使用 Range 来表示行和列，也可以直接使用 Rows 属性和 Columns 属性来表示。选取连续单元格 VBA 代码一：Sub 选中第10行() Range(“10:10”).Select End Sub选取连续单元格 VBA 代码二：Sub选中第10行2() Rows(“10:10”).Select End Sub选取连续单元格 VBA 代码三：Sub 选中第10行3() Rows(10)．Select End Sub操作步骤提示如果要当选中多行时，例如选中工作表中第 10 行至第 13 行，则可利用如下 VBA 代码实现。Sub 选中第 10 至 13 行1() Range(“10:13”).Select End Sub Sub选中第10至13行2() Rows(“10:13”).Select End Sub在 Excel 2010 工作表中选择单列或多列的方法和选中行的方法相似，可以利用「Range(“开始列标:结束列标”)」和「 Columns(“开始列标:结束列标”) 」都可以表示连续的列。例如要选中工作表第 4 列至第 7 列，其代码格式为：Columns(“D:F”).Select。当选中单列时，可以直接使用「Colurnns(列序号)」的形式表示，例如：Columns(7).Select。在 Excel 2010 工作表中，可以通过选取行号或列标的方式来选取一行或多行，一列或多列，可以使用 Range 来表示行和列，也可以直接使用 Rows 属性和 Columns 属性来表示。
选取连续单元格 VBA 代码一：
Sub 选中第10行() Range(“10:10”).Select End Sub
选取连续单...收藏已收藏感谢已感谢修改分享扫码分享复制网址OK了，粘贴即可！修改解答&&&&&在 Excel 2010 工作表中，可以通过选取行号或列标的方式来选取一行或多行，一列或多列，可以使用 Range 来表示行和列，也可以直接使用 Rows 属性和 Columns 属性来表示。
选取连续单元格 VBA 代码一：
Sub 选中ͼ() Range(&#”).Select End Sub
选取连续单元格 VBA 代码二：
Sub选中ͼ2() Rows(&#”).Select End Sub
选取连续单元格 VBA 代码三：
Sub 选中ͼ3() Rows(10)．Select End Sub
##操作步骤
##提示
如果要当选中多行时，例如选中工作表中第 10 行至第 13 行，则可利用如下 VBA 代码实现。
Sub 选中第 10 至 13 行1() Range(&#”).Select End Sub Sub选中ċ13行2() Rows(&#”).Select End Sub
在 Excel 2010 工作表中选择单列或多列的方法和选中行的方法相似，可以利用「Range(“开始列标:结束列标”)」和「 Columns(“开始列标:结束列标”) 」都可以表示连续的列。
例如要选中工作表第 4 列至第 7 列，其代码格式为：Columns(“D:F”).Select。
当选中单列时，可以直接使用「Colurnns(列序号)」的形式表示，例如：Columns(7).Select。提交图片把图片文件拖到这里即可上传上传完，点击「插入图片」按钮插入title插入图片图片链接:图片描述:添加取消视频title插入视频视频链接:添加取消目前已支持优酷网、土豆网、腾讯视频的视频播放页链接提交我的解答&&&&&提交图片把图片文件拖到这里即可上传上传完，点击「插入图片」按钮插入title插入图片图片链接:图片描述:添加取消视频title插入视频视频链接:添加取消目前已支持优酷网、土豆网、腾讯视频的视频播放页链接提交登录正解The page is temporarily unavailable
nginx error!
The page you are looking for is temporarily unavailable.
Please try again later.
Website Administrator
Something has triggered an error on your
This is the default error page for
nginx that is distributed with
It is located
/usr/share/nginx/html/50x.html
You should customize this error page for your own
site or edit the error_page directive in
the nginx configuration file
/etc/nginx/nginx.conf.