vba range中某个字符的个数，vbarange和cells的区别

今天小编为大家分享Windows系统下载、Windows系统教程、windows相关应用程序的文章，希望能够帮助到大家！

1、在vba中Range("BB1")表示对活动工作表BB1单元格的引用。

2、在vba中，Range代表某一单元格、某一行、某一列、某一选定区域（该区域可包含一个或若干连续单元格区域），或者某一三维区域。

3、本部分将说明下列返回 Range对象的属性和方法：

4、可用 Range(arg)（其中 arg为区域名称）来返回代表单个单元格或单元格区域的 Range对象。下例将单元格 A1中的值赋给单元格 A5。

5、Worksheets("Sheet1").Range("A5").Value= _

6、 Worksheets("Sheet1").Range("A1").Value

7、下例设置单元格区域 A1:H8中每个单元格的公式，用随机数填充该区域。在没有对象识别符（句号左边的对象）的情况下，使用 Range属性将返回活动表上的一个区域。如果活动表不是工作表，则该方法无效。在没有明确的对象识别符的情况下，使用 Range属性之前，可用Activate方法来激活工作表。

8、Range("A1:H8").Formula="=Rand()"'Range is on the active sheet

9、下例清除区域 Criteria中的内容。

10、Worksheets(1).Range("Criteria").ClearContents

11、如果用文本参数指定区域地址，必须以 A1样式记号指定该地址（不能用 R1C1样式记号）。

12、可用 Cells(row, column)（其中 row为行号，column为列标）返回单个单元格。下例将单元格 A1赋值为 24。

13、Worksheets(1).Cells(1, 1).Value= 24

14、ActiveSheet.Cells(2, 1).Formula="=Sum(B1:B5)"

15、虽然也可用Range("A1")返回单元格 A1，但有时用 Cells属性更为方便，因为对行或列使用变量。下例在 Sheet1上创建行号和列标。注意，当工作表激活以后，使用 Cells属性时不必明确声明工作表（它将返回活动工作表上的单元格）。

16、 Cells(1, TheYear+ 1).Value= 1990+ TheYear

17、 Cells(TheQuarter+ 1, 1).Value="Q"& TheQuarter

18、虽然可用 Visual Basic字符串函数转换 A1样式引用，但使用Cells(1, 1)记号更为简便（而且也是更好的编程习惯）。

19、可用 expression.Cells(row, column)返回区域中的一部分，其中 expression是返回 Range对象的表达式，row和 column为相对于该区域左上角的偏移量。下例设置单元格 C5中的公式。

20、Worksheets(1).Range("C5:C10").Cells(1, 1).Formula="=Rand()"

21、可用 Range(cell1, cell2)返回一个 Range对象，其中 cell1和 cell2为指定起始和终止位置的 Range对象。下例设置单元格区域 A1:J10的边框线条的样式。

22、.Cells(10, 10)).Borders.LineStyle= xlThick

23、注意每个 Cells属性之前的句点。如果前导的 With语句应用于该 Cells属性，那么这些句点就是必需的。本示例中，句点指示单元格处于第一张工作表上。如果没有句点，Cells属性将返回活动工作表上的单元格。

24、可用 Offset(row, column)（其中 row和 column为行偏移量和列偏移量）返回相对于另一区域在指定偏移量处的区域。下例选定位于当前选定区域左上角单元格的向下三行且向右一列处的单元格。由于必须选定位于活动工作表上的单元格，因此必须先激活工作表。

25、'Can't select unless the sheet is active

26、Selection.Offset(3, 1).Range("A1").Select

27、可用 Union(range1, range2,...)返回多块区域，即该区域由两个或多个连续的单元格区域所组成。下例创建由单元格区域 A1:B2和 C3:D4组合定义的对象，然后选定该定义区域。

28、Dim r1 As Range, r2 As Range, myMultiAreaRange As Range

29、Set myMultiAreaRange= Union(r1, r2)

30、使用包含若干块的选定区域时，Areas属性很有用。它将一个多块选定区域分割为单个的 Range对象，然后将这些对象作为一个集合返回。使用返回的集合的Count属性可检测一个选定区域是否包含多块区域，如下例所示。

31、 NumberOfSelectedAreas= Selection.Areas.Count

32、 If NumberOfSelectedAreas> 1 Then

33、 MsgBox"You cannot carry out this command"& _

在使用Excel过程中，我们可能会出现一种情况，就是单元格有时会对本身进行引用，即形如在B2单元格中输入“=B2+1”之类的公式即为一种循环引用自身的行为。为了避免死循环的产生，就出现了迭代策略。

其实完成可以利用该迭代功能实现我们想要的效果。例如我们想实现“1到10的和累加运算”。可通过以下方法实现。点击“Office按钮”->“Excel选项”按钮。

在打开的“Excel选项”窗口中，切换至“公式”选项卡，勾选“启用迭代计算”项，在“最多迭代次数”输入框中输入“101”，最后点击“确定”完成设置。

在如果所示的“自变量”单元格“A2”中输入公式“=IF(A2>=100,0,A2+1)”并按回车键。

接着在“求和”单元格“B2”中输入公式“=B2*A2”并按回车完成输入。

最后就可以看到输出结果“5050”，即1到100累计和为5050.

数组公式实现了对循环的强有力支持，在此仍然以“1至100累加和”为例，在任意单元格中输入公式“=SUM(ROW(1:100))”。

接着同时按下“Ctrl+shift+Enter”，就可以看到结果啦，而且由于是数组公式，因此公式最外面被加上花括号。

切换至“开发工具”选项卡，点击“Visual Basic”按钮进入VBA编辑环境（或按键盘快捷组合键“Alt+F11”）。

右击“Microsoft Excel对象”，从弹出的菜单中选择“插入”->“模块”项。

在打开的模块1窗口中，输入如图所示的代码：

Sheets(1).Cells(1, 1)="1至100之和："

点击“运行子过程”按钮，并在弹出的“运行”窗口中点击“运行”按钮。

最后返回Excel界面，就可以看到输出结果啦。

wwW.Xtw.Com.cN系统网专业的PC、手机系统开发下载平台，HarmonyOS系统、安卓、OS、windows电脑重装系统在线下载安装,操作系统平台技术学习,攻略教程,技术交流。