'本マクロは、チェックしたいセルを選択後に実行してください。
 
Sub 変換1_1()
Dim r  As Integer, c As Integer
r = ActiveCell.Row
c = ActiveCell.Column
 
    MsgBox (Chr(64 + c) & r & "セルのデータ型→" & VarType(Cells(r, c)))
End Sub

Sub 変換2_1()
For i = 1 To 3
    With Cells(i, 1)
        shu = .Value
        .NumberFormat = "@"
        .Value = shu
    End With
Next
End Sub
---------------------------------------------------------
Sub 変換2_2()
For i = 1 To 3
    With Cells(i, 1)
        shu = .Value
        .NumberFormat = "@"
        .Value = CStr(shu)
    End With
Next
End Sub
---------------------------------------------------------
Sub 変換2_3()
For i = 1 To 3
    With Cells(i, 1)
        .NumberFormat = "@"
        .Value = CStr(.Value)
    End With
Next
End Sub

Dim m1 As String, m2 As String
Dim m3 As String, m4 As String
Dim m5 As String, m6 As String
--------------------------------------
Sub Macro1()
m1 = "ABCDEFGH"
    t1 = Len(m1)
    MsgBox "t1→ " & t1
End Sub
--------------------------
Sub Macro2()
m1 = "ABCDEFGH"
    t2 = Left(m1, 4)
    MsgBox "t2→ " & t2
End Sub
--------------------------
Sub Macro3()
m1 = "ABCDEFGH"
    t3 = Right(m1, 4)
    MsgBox "t3→ " & t3
End Sub
--------------------------
Sub Macro4()
m1 = "ABCDEFGH"
    t4 = Mid(m1, 3, 2)
    MsgBox "t4→ " & t4
End Sub
--------------------------
Sub Macro5()
m1 = "ABCDEFGH"
    t5 = Mid(m1, 5)
    MsgBox "t5→ " & t5
End Sub
--------------------------
Sub Macro6()
m1 = "ABCDEFGH"
    t6 = InStr(3, m1, "e", 1)
    MsgBox "t6→ " & t6
End Sub
--------------------------
Sub Macro6a()
m1 = "ABCDEFGH"
    t6a = InStrRev(m1, "E")
    MsgBox "t6a→ " & t6a
End Sub
--------------------------
Sub Macro7()
 
    t7 = Str(999) & 1234
    MsgBox "t7→ " & t7
End Sub
--------------------------
Sub Macro8()
m2 = "1111"
    t8 = Val(m2) + 1234
    MsgBox "t8→ " & t8
End Sub
--------------------------
Sub Macro9()
m3 = "123Km"
    t9 = Val(m3) + 1234
    MsgBox "t9→ " & t9
End Sub
Sub Macro10()
m4 = "w123Km"
    t10 = Val(m4)
    MsgBox "t10→ " & t10
End Sub
--------------------------
Sub Macro11()
m5 = "ABCD"
    t11 = LCase(m5)
    MsgBox "t11→ " & t11
End Sub
--------------------------
Sub Macro12()
m6 = "abcd"
    t12 = UCase(m6)
    MsgBox "t12→ " & t12
End Sub
--------------------------
Sub Macro13()
m5 = "ABCD"
    t13 = m5 Like m5
    MsgBox "t13→ " & t13
End Sub
--------------------------
Sub Macro14()
m5 = "ABCD"
    t14 = m5 Like "*B*"
    MsgBox "t14→ " & t14
End Sub
--------------------------
Sub Macro15()
m5 = "ABCD"
    t15 = m5 Like "B"
    MsgBox "t15→ " & t15
End Sub
--------------------------
Sub Macro16()
m5 = "ABCD": m6 = "abcd"
    t16 = StrComp(m5, m6, 1)
    MsgBox "t16→ " & t16
End Sub
 
--------------------------
Sub Macro17()
m7 = "  abcd"
    t17a = m7
    t17b = LTrim(m7)
   MsgBox "t17a→" & Len(t17a) & "字 " & "t17b→" & Len(t17b) & "字"
End Sub
--------------------------
Sub Macro17a()
m8 = "abcd   "
    t17a = m8
    t17b = RTrim(m8)
   MsgBox "t17a→" & Len(t17a) & "字 " & "t17b→" & Len(t17b) & "字"
End Sub
--------------------------
Sub Macro18()
m1 = "abcd"
    t18 = StrConv(m1, 1)
    MsgBox "t18→ " & t18
End Sub
--------------------------
Sub Macro19()
m2 = "DEFG"
    t19 = StrConv(m2, 2)
    MsgBox "t19→ " & t19
End Sub
--------------------------
Sub Macro20()
m1 = "abcd"
    t20 = StrConv(m1, 3)
    MsgBox "t20→ " & t20
End Sub
--------------------------
Sub Macro21()
m3 = "deｱｲ"
    t21 = StrConv(m3, 4)
    MsgBox "t21→ " & t21
End Sub
--------------------------
Sub Macro22()
m4 = "ＡＢウエ"
    t22 = StrConv(m4, 8)
    MsgBox "t22→ " & t22
End Sub
--------------------------
Sub Macro23()
m5 = "あいうえ"
    t23 = StrConv(m5, 16)
    MsgBox "t23→ " & t23
End Sub
--------------------------
Sub Macro24()
m6 = "カキクケ"
    t24 = StrConv(m6, 32)
    MsgBox "t24→ " & t24
End Sub
Sub Macro25()
m7 = "あい"
m8 = "カキ"
    t25 = m7 & Space(2) & m8
    MsgBox "t25→ " & t25
End Sub
--------------------------
Sub Macro26()
m5 = "あいうえ"
    t26 = String(3, "○")
    MsgBox "t26→ " & t26
End Sub
Sub Macro27()
m5 = "あいうえ"
    mystr$ = String(15, "*")
    LSet mystr$ = m5
    Cells(1, 2) = mystr$
End Sub
--------------------------
Sub Macro28()
m5 = "あいうえ"
    mystr$ = String(15, "*")
    RSet mystr$ = m5
    Cells(1, 2) = mystr$
End Sub

Dim myrange As Range
 
Sub Macro29a()
Set myrange = Cells(1, 2)
myrange.Value = "ABCDEFG"
    myrange.Characters(4, 3).Font.ColorIndex = 3
End Sub
----------------------------------------------------------
Sub Macro29b()
Set myrange = Cells(1, 2)
myrange.Value = "ABCDEFG"
    myrange.Characters(3, 2).Font.FontStyle = "太字"
End Sub
----------------------------------------------------------
Sub Macro29c()
Set myrange = Cells(1, 2)
myrange.Value = "ABCDEFG"
    myrange.Characters(4, 3).Insert "aaa"
End Sub
----------------------------------------------------------
Sub Macro30a()
Set myrange = Cells(1, 2)
myrange.Value = "ABCDEFG"
    myrange.Replace "BCD", "abc123"
End Sub
----------------------------------------------------------
Sub Macro30b()
Set myrange = Cells(1, 2)
myrange.Value = "ABCDEFG"
    myrange.Replace What:="ＢＣＤ", Replacement:="abc123", _
    LookAt:=xlPart, SearchOrder:=xlByRows, _
    MatchCase:=False, MatchByte:=False
End Sub
----------------------------------------------------------
Sub Macro30c()
Set myrange = Cells(1, 2)
myrange.Value = "ABCDEFG"
    myrange.Replace "*D", ""
End Sub
----------------------------------------------------------
Sub Macro30d()
Set myrange = Cells(1, 2)
myrange.Value = "ABCDEFG"
    myrange.Replace "D*", ""
End Sub
----------------------------------------------------------
Sub Macro31()
    Cells(1, 2) = Application.WorksheetFunction. _
    Substitute("?ABCD", "?", "abc123")
End Sub