Excel VBA的单元格用法

最新推荐文章于 2022-07-16 14:43:49 发布

转载最新推荐文章于 2022-07-16 14:43:49 发布 · 174 阅读

1 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/ibgo/archive/2012/04/17/2454560.html

本文介绍使用VBA在Excel中选取单元格的方法，包括单个、连续及不连续单元格的选择，行、列及全部单元格的选取，并提供实际案例，如合并单元格及统计特定数值的数量。

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

－－－－－－－定义excel对象－－－－－－ 
  Dim Xl         As Excel.Application, Sheet   As Excel.Worksheet 
  Set Xl = CreateObject("Excel.Application") 
  '建立Excel.Application 
  Xl.Workbooks.Add 
  Xl.Visible = True 
  Set Sheet = Xl.Worksheets(1)

－－－－－－－－vba中引用函数－－－－－ 
 Cells(30, Col) = Application.WorksheetFunction.Average(Range(strRange1)) '对当日的数据进行平均值计算

转载于:https://www.cnblogs.com/ibgo/archive/2012/04/17/2454560.html