回答編集履歴
1
説明追記
test
CHANGED
@@ -7,3 +7,21 @@
|
|
7
7
|
A1に `=Row()`としてデータの最後までフィルダウンすればいいでしょう。
|
8
8
|
|
9
9
|
A1が項目名でA2からデータなら、`=Row()-1`
|
10
|
+
|
11
|
+
|
12
|
+
|
13
|
+
②
|
14
|
+
|
15
|
+
|
16
|
+
|
17
|
+
```vba
|
18
|
+
|
19
|
+
With Cells(c + 1, 2).Resize(, 5)
|
20
|
+
|
21
|
+
.Value = Array(ID, Name, stday, belo, etc)
|
22
|
+
|
23
|
+
.Borders.LineStyle = xlContinuous
|
24
|
+
|
25
|
+
End With
|
26
|
+
|
27
|
+
```
|