セルに指定記号入力と同時に他のセルも反応の方法は？

質問

エクセルの指定した記号を入力すれば指定したセルに数字が入る方法を教えてください。
たとえば、あるセルに「a4」と入力すれば、右隣のセル２つに２、２と数字が自動入力。
「b5」と入力すれば右隣のセル３つに１、２、２と自動入力するというような方法です。
よろしくお願いします。

回答No.4

K Kazz（@JazzCorp）

Ａ列の数字をトリガにすると、こんなガンジ？？

Sub DivideBy2()
Dim kk As Long
Dim nn As Long
Dim hNum As Long
Dim xOdd As Long

With Sheets("Sheet1")
nn = .Cells(.Rows.Count, 1).End(xlUp).Row
If ((nn = 1) And (.Cells(1, 1).Value = "")) Then
MsgBox ("No Data Found!!")
Exit Sub
End If
For nn = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
If (.Cells(nn, 1).Value = "") Then Exit For
hNum = Int((.Cells(nn, 1) + 1) / 2)
If hNum > 255 Then
hNum = 255
End If
If hNum > 0 Then
'xOdd = hNum - Cells(nn, 1) / 2
xOdd = .Cells(nn, 1) Mod 2
If xOdd = 1 Then
.Cells(nn, 2) = 1
Else
.Cells(nn, 2) = 2
End If
If hNum > 1 Then
For kk = 2 To hNum
.Cells(nn, kk + 1) = 2
Next kk
End If
End If
Next nn
For kk = 1 To hNum + 1
Columns(kk).EntireColumn.AutoFit
Next kk
End With
End Sub

お礼

ありがとうございまいた。
関数での命令もいろいろあるものだとわかりました。
初心者なので、もっと勉強します。