回答編集履歴
1
追記
answer
CHANGED
|
@@ -23,4 +23,16 @@
|
|
|
23
23
|
End If
|
|
24
24
|
Next k
|
|
25
25
|
End Sub
|
|
26
|
+
```
|
|
27
|
+
|
|
28
|
+
---
|
|
29
|
+
mayu-さんのを借りるとこんな風にもできそうです。
|
|
30
|
+
```VBA
|
|
31
|
+
Sub sample()
|
|
32
|
+
With ThisWorkbook.Worksheets(1).UsedRange.Resize(, 1).Offset(, 1)
|
|
33
|
+
.Value = 1
|
|
34
|
+
.Resize(.Rows.Count - 1).Offset(1).FormulaR1C1 = "=IF(R[-1]C[-1]=RC[-1],R[-1]C+1,1)"
|
|
35
|
+
.Value = .Value
|
|
36
|
+
End With
|
|
37
|
+
End Sub
|
|
26
38
|
```
|