即効テクニック |
サンプルマクロは、セル範囲を選択して実行すると、選択範囲の最初のセルの右端がアルファベットだった場合には、右端の文字をそれに続くアルファベットに変換したものを次のセルに記述します。ただし、選択セル範囲のセル数は最大256個です。
Sub Sample() Dim i As Long Dim myStr As String Dim myBody As String Dim myKey As String Dim myNew As String myStr = Selection.Cells(1).Value myBody = Left(myStr, Len(myStr) - 1) myKey = Right(myStr, 1) For i = 2 To Selection.Cells.Count Select Case Asc(myKey) Case Asc("A") To Asc("Z") myNew = Columns(Columns(myKey).Column + i - 1).Address(, False) myNew = Left(myNew, InStr(myNew, ":") - 1) Case Asc("a") To Asc("z") myNew = Columns(Columns(myKey).Column + i - 1).Address(, False) myNew = Left(myNew, InStr(myNew, ":") - 1) myNew = StrConv(myNew, vbLowerCase) Case Else myNew = myKey End Select Selection.Cells(i).Value = myBody & myNew Next End Sub