|
▼UO3 さん ありがとうございました。
期待通りに動いてくれました。
自分のために一部変更したコードを載せておきます。
Sub 二個飛合計式の作成()
Dim i As Long
Dim n As Long
Dim v() As String
Dim c As Range
Dim x As Long
Dim m As Long
m = 2 '2個飛びの合計
If Selection.Areas.Count > 1 Then
MsgBox "複数領域の選択はできません"
Exit Sub
End If
If Selection.Rows.Count > 1 Then
MsgBox "複数行の選択はできません"
Exit Sub
End If
ReDim v(1 To WorksheetFunction.RoundUp(Selection.Count / (m + 1), 0))
For i = 1 To Selection.Count Step m + 1
x = x + 1
v(x) = Selection.Cells(i).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Next
Selection.Cells(1).Offset(, Selection.Count).Formula = "=" & Join(v, "+")
End Sub
|
|