回答編集履歴
1
誤字修正、コードマークダウン追加
test
CHANGED
@@ -29,24 +29,25 @@
|
|
29
29
|
Next j
|
30
30
|
|
31
31
|
```
|
32
|
-
・`k`と`l`は個別にループするのではなくこんな感じで
|
32
|
+
・`k`と`l`は個別にループするのではなく1例としてはこんな感じで
|
33
33
|
```VBA
|
34
34
|
Dim k As Long '転記元Column
|
35
35
|
Dim l As Long '転記先Column
|
36
36
|
|
37
|
-
Dim
|
37
|
+
Dim 列オフセット As Long
|
38
38
|
Dim 作業者人数 As Long
|
39
39
|
作業者人数 = 12
|
40
40
|
|
41
|
-
For
|
41
|
+
For 列オフセット = 1 To 作業者人数
|
42
|
-
k = Cells(7, "V").Column + (
|
42
|
+
k = Cells(7, "V").Column + (列オフセット - 1)
|
43
|
-
l = Cells(7, "E").Column + (
|
43
|
+
l = Cells(7, "E").Column + (列オフセット - 1)
|
44
44
|
|
45
45
|
Next
|
46
46
|
```
|
47
47
|
・処理速度に関しては配列を使っての一括書き込みを使わないのであればあまり変わらないかも。
|
48
48
|
以下の画面描画処理スキップで多少改善するかもしれません。
|
49
|
+
```VBA
|
49
50
|
Application.ScreenUpdating = False
|
50
51
|
'処理
|
51
52
|
Application.ScreenUpdating = True
|
52
|
-
|
53
|
+
```
|