質問編集履歴
2
改善
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -10,4 +10,27 @@
|
|
|
10
10
|
Range("Cells(Rows.Count,21).End(xlUp).Row:Cells(Rows.Count,24).End(xlUp).Row").Select
|
|
11
11
|
Selection.AutoFill Destination:=Range("Cells(Rows.Count,24).End(xlUp).Row:Cells(Rows.Count,20).End(xlUp).Row"), Type:=xlFillDefault
|
|
12
12
|
Range("Cells(Rows.Count,24).End(xlUp).Row:Cells(Rows.Count,20).End(xlUp).Row").Select
|
|
13
|
-
```
|
|
13
|
+
```
|
|
14
|
+
|
|
15
|
+
表を再現しますと
|
|
16
|
+
T U V W X
|
|
17
|
+
1761 1612 0 225000 1,612
|
|
18
|
+
3851 3532 0 225000 3,532
|
|
19
|
+
1981 1812 0 225000 1,812
|
|
20
|
+
3851 3532 0 225000 3,532
|
|
21
|
+
1804 1651 0 225000 1,651
|
|
22
|
+
1761 1612 0 225000 1,612
|
|
23
|
+
3861 3541 0 225000 3,541
|
|
24
|
+
3851 3532 0 226000 3,532
|
|
25
|
+
3851
|
|
26
|
+
2171
|
|
27
|
+
3862
|
|
28
|
+
3851
|
|
29
|
+
3864
|
|
30
|
+
・
|
|
31
|
+
・
|
|
32
|
+
|
|
33
|
+
こうなっていてUからXの最終行を範囲選択しTの最終列までオートフィルをしたいです
|
|
34
|
+
T～Xの行数は毎回変わりますので最終行を取得して可変に対応させたいです
|
|
35
|
+
|
|
36
|
+
しどろもどろですいませんその都度返信させていただきますのでよろしくお願いします
|
1
タイトルの間違い
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
可変する
|
|
1
|
+
可変する行をオートフィルしたい
|
body
CHANGED
|
File without changes
|