- 835 名前：デフォルトの名無しさん mailto:sage [2021/09/02(木) 07:53:36.77 ID:8TUhFQ840.net]
- >>829
(クリア処理)
If IsNumeric(Range(″B1”).Value) And IsNumeric(Range(“B2″).Value) Then
Dim TgtAry() As String
ReDim TgtAry(0 to Range(”B2”).Value - Range(”B1”).Value, 3 to 4)
Dim AryCnt As Long
For AryCnt = 0 to Ubound(TgtAry, 1)
TgtAry(AryCnt, 3) = CLng(Range(”B1”).Value) + AryCnt
TgtAry(AryCnt, 4) = Range(”A1”).Value & ″/″ & TgtAry(AryCnt, 3)
Next
Range(Cells(1, 3), Cells(1 + Ubound(TgtAry, 1), 4).Value = TgtAry
End If
