xudahai513的博客

返回一个 Range 对象，该对象表示找到的最后一个非空单元格。你可以使用此对象来进一步处理或操作该单元格，例如获取其值、设置其值、格式化等等。在Excel VBA中，可以使用Range对象的End属性来获取最后一列。找到指定列的最后一个有数据的单元格。该方法将从底部开始搜索，直到找到第一个非空单元格。Range("a" & i) "" 则代码遇到。确定指定列的最后一个非空单元格所在的行号。属性获取最后一个有数据的单元格所在的行号。

【代码】【VBA】EXCEL - VBA 遍历工作表的 5 种方法，以及注意事项。

【代码】【创建 Sheet 】EXCEL - VBA 创建 Sheet 表的 6 种方法，以及注意事项。

【代码】【VBA】EXCEL 开发基础，小白看了都会用。

'like: 用来比较两个字符串，返回值的逻辑值true或false'语法结构：result=string Like patter'pattern 中的字符 符合string中的'? 任何单一字符'* 零个或多个字符'# 任何一个数字（0-9）'[charlist] charlist中的任何单一字符'[!charlist] 不在cha...

姓名 班级 语文 数学 英语 A001 1班 68 67 87 A001 1班 68 67 87 A006 1班 69 79 75 A002 2班 91 51 92 A008 1班 63 75 85...

for...next 数字循环for each...next 数组循环或集合遍历do...loop 循环内容不确定do until....loop 直到条件成立时，停止循环do while...loop 当条件成立时，则开始循环...

Sub doUtil()Dim num%'until直到条件成立时，停止循环'while当条件成立时，则开始循环Do Until num >3 num = num + 1 MsgBox numLoopEnd Sub============================================Sub doWhile()Dim num%'un...

Sub doloop计算金额()Dim k%k = 1Do k = k + 1//excel表第8个sheet ；判断当前行列单元格是否为空；如果为空退出do。。。loop循环； If Worksheets(8).Cells(k, "a") = "" Then Exit Do Else//计算c列单元格的金额 Worksh...

Sub addSheet()Dim ws As WorksheetFor Each ws In Worksheets If ws.Name = "testT" Then End Next ws Worksheets.Add.Name = "testT"End Sub说明：判断当前Excel里头的sheet里头是否有个sheet名称叫testT 没有的的情况下，创建一...

业务员 业绩 提成金额 张三 12000 6000 李四 10000 5000 王二 5000 2500 麻子 20000 10000 成丰富 350000 175000 牛奶 1000000 500000 Sub 提成金额()Dim n%n = 2 计时器，For E...

1*1=1 2*1=2 2*2=4 3*1=3 3*2=6 3*3=9 4*1=4 4*2=8 4*3=12 4*4=16 ...

产品 数量 单价 金额 A1 16 34 544 A2 32 22 704 A3 13 22 286 A4 1 53 53 A5 3 2 6 A6 4 3 12 A7 34 23 782 A8 22 33 ...

数据类型(简写)：Integer：整型 %Single：单精度 ！Double：双精度 #Long：长整型 &String：字符 $Currency：货币型 @Sub test()Dim pass$0:pass = InputBox("请输入密码")Select Case passCase "999"MsgBox "登陆成功"Cas...

Dim 定义语句Sub test1() Dim num As Integer num = 70 If num > 80 Then MsgBox "及格" Else MsgBox "不及格" End IfEnd Sub=====================================================...