Excel VBA中选取单元格的方法

时间:2016-10-23来源:未知作者:admin 点击:在线投稿
文章摘要:
1、选取一个单元格: Range(A1).select Range(A 1).select 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……

1、选取一个单元格:
? ?Range("A1").select
? ?Range("A" & 1).select
? ?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 ? ? ? ? ? ? ? ? ? ? ? ? ?’取最后一行
iCol = ActiveSheet.Range("dz2").End(xlToLeft).Column ? ? ? ? ? ? ? ’取最后一列
? ?For j = 3 To iCol ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ’列循环
? ? ? ?For m = 3 To iRow ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ’行循环
? ? ? ? ? If ActiveSheet.Cells(j, m) = "1" Then
? ? ? ? ? ? ?iCount = iCount + 1
? ? ? ? ? End If
? ? ? ?Next
? ?Next
Next
MsgBox "方案数为: " & iCount
End Sub
(0)
推荐

本文链接:https://www.8119.org/plus/view.php?aid=1421
本文由365bet官网-皇恩靠谱_365bet论坛新网址_365bet验证学习网整理发布,转载请以链接形式注明出处,谢谢合作。
  • 相关文章
------分隔线----------------------------