回答編集履歴

1

説明追記

2021/10/25 03:54

投稿

hatena19
hatena19

スコア34075

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
+ ```