vba 数值转文本_VBA笔记9-在VBA中使用公式

考生成绩统计&查询系统

共有多少名考生，只算重庆的 =couta(重庆！A:A）-1

如果用vba

sub tongji()

sheet1.range("d26")=sheet2.range("a65536").end(xlup)-1

end sub

问题在于如果中间空两格没办法计算以下改进

Sub tongji()

For i = 1 To 200

If Sheet2.Range("a" & i) <> "" Then

k = k + 1

End If

Next

Sheet1.Range("d26") = k - 1

End Sub

在VBA里使用函数

Sub chaxun()

Sheet1.Range("d14").ClearComments

On Error Resume Next '出现错误直接下一行

For i = 2 To Sheets.Count

Sheet1.Range("d14") = WorksheetFunction.VLookup(Sheet1.Range("d9"), Sheets(i).Range("a:h"), 5, 0)

Sheet1.Range("d16") = WorksheetFunction.VLookup(Sheet1.Range("d9"), Sheets(i).Range("a:h"), 6, 0)

Sheet1.Range("d18") = WorksheetFunction.VLookup(Sheet1.Range("d9"), Sheets(i).Range("a:h"), 3, 0)

Sheet1.Range("d20") = WorksheetFunction.VLookup(Sheet1.Range("d9"), Sheets(i).Range("a:h"), 8, 0)

Sheet1.Range("d22") = Sheets(i).Name

If Sheet1.Range("d14") <> "" Then

Exit For

End If

Next

End Sub

with VBA

end with

两个box属于interaction

Sub test()

Sheet1.Range("b2") = Left(Sheet1.Range("a2"), InStr(Sheet1.Range("a2"), "@") - 1)

End Sub

Sub tiqu()

On Error Resume Next

For i = 2 To Sheet2.Range("a65536").End(xlUp).Row

Sheet2.Range("b" & i) = Split(Sheet2.Range("a" & i), "-")(2) & "年 第" & Split(Sheet2.Range("a" & i), "-")(3) & "周"'第一段应写0 ，后面依次是1,2

Next

End Sub

VBA函数在哪里 VBA.

各类别VBA函数介绍（见附表：VBA函数）

文本练习：Instr函数查找位置

文本练习：Split函数

IsNumeri判断是否为数字

Val转化为数值

VBA里的date函数为

range（“b2”)=vba.datetime.dateserial(2015,8,3)