批次取代

=>將L排資料取代成M排

Sub 批次取代()
AAA = 2

For i = 1 To 150 Step 1
   
    Cells.Replace What:=Sheets("工作表1 (3)").Range("L" & AAA), Replacement:=Sheets("工作表1 (3)").Range("M" & AAA), LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
       
   AAA = AAA + 1
Next
End Sub

C# 好用文章

小山老師

在VBA裡面快速取得最後一欄及最後一列

1.中間沒空白
cells(1.1).End(xlDown).Row               '在第一格按下Ctrl + 方向鍵往下
cells(1.1).End(xlToRight).Column      '在第一格按下Ctrl + 方向鍵向左
2.中間有空白
cells(ActiveSheet.Rows.Count,1).End(xlUp).Row                     '最後一格往上選
cells(1,ActiveSheet.Columns.Count).End(xlToLeft).Column    '最左邊往右選

VBA-文字帶入變數

編寫VBA的時候，有些字串希望帶入變數，供參考

文字相連使用 & 連接

一、

VBA-文字參照 R1C1 R[1]C[1]

VBA裡錄製巨集時會看到R1C1,R[1]C[1] 位址參照樣式

表示方法如下

在 R1C1 樣式中使用 R 加上列號碼和 C 加上欄號碼，來表示儲存格的位置。如果使用[]表示要使用相對參照，否則使用絶對參照。

VBA-寫身分證字號 產生器

版面 需要的按鈕 

CommandButton1,2, ComboBox1, OptionButton1(Male),2(Female), TextBox1