清除行内容
Rows("2:2").Select
Selection.ClearContents
粘贴到另一个表中有字符的下一行或粘贴到最后一行字符的下一行:
该行的行号为: Sheets("sheet1").Range("A65536").End(xlUp).Row + 1
得到最后一行 : ActiveSheet.UsedRange. Item(ActiveSheet.UsedRange.Count).row
判断一个单元表是否存在
dim ws as worksheeton error resume next
set ws = worksheets("sheet1")
if err then msgbox " sheet1工作表不存在"
on error goto 0
---------------------------------------
判断一个sheet表是否存在,如果存在则删除, 备份一下.
Sub copyORGFCST() '
Dim ws As Worksheet
On Error Resume Next
Set ws = Worksheets("ORGFCST_2")
If Err Then
Sheets("ORGFCST").Select
Sheets("ORGFCST").Copy After:=Sheets("ORGFCST")
ActiveSheet.Name = "ORGFCST_2"
On Error GoTo 0
Else
Sheets("ORGFCST_2").Delete
Sheets("ORGFCST").Select
Sheets("ORGFCST").Copy After:=Sheets("ORGFCST")
ActiveSheet.Name = "ORGFCST_2"
End If
End Sub
---------------------
Sub copyORGFCST() '
Dim ws As Worksheet
On Error Resume Next
Set ws = Worksheets("ORGFCST_2")
If Not Err Then
Application.DisplayAlerts = False
Sheets("ORGFCST_2").Delete
Sheets("ORGFCST").Select
Sheets("ORGFCST").Copy After:=Sheets("ORGFCST")
ActiveSheet.Name = "ORGFCST_2"
End If
Application.DisplayAlerts = True
End Sub
------------------------------------------------------------------------
Sub Macro1()
Dim i, j As Long
Dim dt As String
dt = "2011-12-26"
i = InStr(StrReverse(dt), "-")
Debug.Print (i)
j = Len(dt) - i
dt = Mid(dt, 1, j)
End Sub
结果为 2011-12
Sub test()
Dim i, j As Long
Dim dt, dtY, dtM As String
dt = "2011-12-26"
dtM = Month(dt)
dtY = Year(dt)
dt = dtY & "-" & dtM
End Sub
结果为 2011-12
string 类的字符
Trim(string) 去年string左右两端的空白
Len(string) 计算string长度
left(string,x) 取string左段x个字符组成的字符串.
Right(string, x ) 取string 右段 x个字符组成的字符串.
可使用InStr函数返回一字符串在另一字符串中的位置,因此,也可以使用该函数确定一个字符串中是否包含有另一个字符串。其语法为:
InStr([Start,]string1,string2[,compare])
其中,参数Start为可选参数,设置查找的起点,如果省略,则从第一个字符的位置开始查找,当指定了参数Compare时,则要指定此参数。参数string1为被查找的字符串,参数string2为要查找的字符串,这两个参数都是必需的。
instr( "2011-11-26", "-")
反向字符串
StrReverse函数返回与指定字符串顺序相反的字符串,其语法为:
StrReverse(expression)
其中,参数expression是一个字符串,应用StrReverse函数后将返回与该字符串顺序相反的字符串。如果expression是一个长度为零的字符串(“”),则返回一个长度为零的字符串;如果expression为Null,则产生一个错误。
Mid函数
Mid(string, start[,length])
Mid 函数的语法具有下面的命名参数:
部分 | 说明 |
---|---|
string | 必要参数。字符串表达式,从中返回字符。如果 string 包含Null,将返回Null。 |
start | 必要参数。为 Long。string 中被取出部分的字符位置。如果start超过string的字符数,Mid 返回零长度字符串 ("")。 |
length | 可选参数;为 Variant (Long)。要返回的字符数。如果省略或length超过文本的字符数(包括start处的字符),将返回字符串中从start到尾端的所有字符。 |
说明
欲知 string 的字符数,可用 Len 函数。
注意 MidB 函数作用于字符串中包含的字节数据,如同在双字节字符集(DBCS)语言中一样。因此其参数指定的是字节数,而不是字符数。对于使用MidB的示例代码,请参阅示例主题中的第二个示例。
日期型函数
日期与时间关键字总结
请参阅
作用 | 关键字 |
---|---|
设置当前日期或时间。 | Date ,Now,Time |
计算日期。 | DateAdd, DateDiff, DatePart |
返回日期。 | DateSerial, DateValue |
返回时间。 | TimeSerial, TimeValue |
设置日期或时间。 | Date, Time |
计时。 | Timer |
Year("日期") 返回日期的年份
Month("日期") 返回日期的月份
Day("日期") 返回日期的某日
Hour("日期") 返回日期的某时
Minute("日期") 返回日期的某分
Second("日期") 返回日期的某秒
Time 系统当前的时间