ROACH部落落

Excel找到最後一筆

Sheet1.[a65535].end(xlup).row

目前活頁最後一筆紀錄

ActiveCell.SpecialCells(xlLastCell).Select

該欄最後一筆紀錄

Range("A7").Select
    Selection.End(xlDown).Select

選取目前有資料的範圍～從1查到最後～並選取
Range([A1], [A65536].End(xlUp)).Select

將文字轉換時遇到錯誤轉成日期格式
Sub nn()
On Error Resume Next
For Each a In Range([A1], [A65536].End(xlUp))
a.Value = CDate(a.Value)
Next
End Sub

計算目前這個活頁有多少筆數
Row = Application.WorksheetFunction.CountA(Columns("H:H"))


尋找關鍵字
Selection.AutoFilter Field:=1, Criteria1:=Range("A2").TEXT

 Field:=1 代表找A列
 Criteria1:= 代表尋找的條件

繼續找下去就下達
  Selection.AutoFilter

刪除重複值後!找結果筆數

    Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Columns( _
        "A:A"), CopyToRange:=Columns("D:D"), Unique:=True
    Range("D1").Select

    Selection.End(xlDown).Select
    V_ROW = ActiveCell.Row
    MsgBox (V_ROW)

一．測試函數

IsNumeric(x)                                  ‘是否為數字, 返回Boolean結果，True or False

IsDate(x)                                      ‘是否是日期, 返回Boolean結果，True or False

IsEmpty（x）                                 ‘是否為Empty, 返回Boolean結果，True or False

IsArray(x)                                        ‘指出變數是否為一個陣列。

IsError(expression)                             ‘指出運算式是否為一個錯誤值

IsNull(expression)                              ‘指出運算式是否不包含任何有效資料 (Null)。

IsObject(identifier)                             ‘指出識別字是否表示物件變數

二．數學函數

Sin(X)、Cos(X)、Tan(X)、Atan(x)  三角函數，單位為弧度

Log(x) 返回x的自然對數

Exp(x)返回 e^x

Abs(x) 返回絕對值

Int(number)、Fix(number) 都返回參數的整數部分，區別：Int 將 -8.4 轉換成 -9，而 Fix 將-8.4 轉換成 -8

Sgn(number) 返回一個 Variant (Integer)，指出參數的正負號

Sqr(number) 返回一個 Double，指定參數的平方根

VarType(varname) 返回一個 Integer，指出變數的子類型

Rnd（x）返回0-1之間的單精確度資料，x為隨機種子

三．字串函數

Trim(string)                              去掉string左右兩端空白

Ltrim(string)                             去掉string左端空白

Rtrim(string)                             去掉string右端空白

Len(string)                                計算string長度

Left(string, x)                   取string左段x個字元組成的字串

Right(string, x)                         取string右段x個字元組成的字串

Mid(string, start,x)            取string從start位元開始的x個字元組成的字串

Ucase(string)                             轉換為大寫

Lcase(string)                             轉換為小寫

Space(x)                           返回x個空白的字串

Asc(string)                                返回一個 integer，代表字串中首字母的字元代碼

Chr(charcode)                            返回 string，其中包含有與指定的字元代碼相關的字元

四．轉換函數

CBool(expression)                      轉換為Boolean型

CByte(expression)                     轉換為Byte型

CCur(expression)                       轉換為Currency型

CDate(expression)                     轉換為Date型

CDbl(expression)                       轉換為Double型

CDec(expression)                      轉換為Decemal型

CInt(expression)                        轉換為Integer型

CLng(expression)                      轉換為Long型

CSng(expression)                      轉換為Single型

CStr(expression)                        轉換為String型

CVar(expression)                       轉換為Variant型

Val(string)                       轉換為資料型

Str(number)                               轉換為String

五．時間函數

Now              返回一個 Variant (Date)，根據電腦系統設置的日期和時間來指定日期和時間。

Date                返回包含系統日期的 Variant (Date)。

Time      返回一個指明當前系統時間的 Variant (Date)。

Timer             返回一個 Single，代表從午夜開始到現在經過的秒數。

TimeSerial(hour, minute, second) 返回一個 Variant (Date)，包含具有具體時、分、秒的時間。

DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) 返回 Variant (Long) 的值，表示兩個指定日期間的時間間隔數目

Second(time) 返回一個 Variant (Integer)，其值為 0 到 59 之間的整數，表示一分鐘之中的某個秒

Minute(time) 返回一個 Variant (Integer)，其值為 0 到 59 之間的整數，表示一小時中的某分鐘

Hour(time)       返回一個 Variant (Integer)，其值為 0 到 23 之間的整數，表示一天之中的某一鐘點

Day(date)         返回一個 Variant (Integer)，其值為 1 到 31 之間的整數，表示一個月中的某一日

Month(date)      返回一個 Variant (Integer)，其值為 1 到 12 之間的整數，表示一年中的某月

Year(date)         返回 Variant (Integer)，包含表示年份的整數。

Weekday(date, [firstdayofweek]) 返回一個 Variant (Integer)，包含一個整數，代表某個日期是星期幾