EXCEL - VBA 個人巨集活頁簿

Sub 插入欄()
ActiveCell.Offset(0, 1).Select
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert
ActiveCell.Offset(0, -1).Select
End Sub
Sub 切割()
x = ActiveCell.Address
Selection.TextToColumns Destination:=Range(x), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="/", FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2)), _
TrailingMinusNumbers:=True

End Sub
Sub 執行轉換()
插入欄
切割
合併
刪除欄
End Sub
Sub 刪除欄()
ActiveCell.Offset(0, 1).Select
Selection.EntireColumn.Delete
Selection.EntireColumn.Delete
ActiveCell.Offset(0, -1).Select
End Sub

Sub 合併()

x = ActiveCell.Value

If Int(x) >= 100 Then

x = Int(ActiveCell.Value) + 1911 & "/" & Int(ActiveCell.Offset(0, 1).Value) & "/" & Int(ActiveCell.Offset(0, 2).Value)
ActiveCell.Value = x

Else
x = Int(ActiveCell.Offset(0, 2).Value) + 11 & "/" & Int(ActiveCell.Value) & "/" & Int(ActiveCell.Offset(0, 1).Value)
ActiveCell.Value = x


End If

End Sub