回答編集履歴
2
コード修正
test
CHANGED
|
@@ -22,13 +22,13 @@
|
|
|
22
22
|
|
|
23
23
|
.Range("B1:B8").Copy
|
|
24
24
|
|
|
25
|
-
|
|
25
|
+
rngTo.PasteSpecial _
|
|
26
26
|
|
|
27
27
|
Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
|
|
28
28
|
|
|
29
29
|
Application.CutCopyMode = False
|
|
30
30
|
|
|
31
|
-
|
|
31
|
+
rngTo.Offset(, 8).Resize(, 1).Value = .Range("c2").Value
|
|
32
32
|
|
|
33
33
|
End With
|
|
34
34
|
|
|
@@ -52,7 +52,7 @@
|
|
|
52
52
|
|
|
53
53
|
|
|
54
54
|
|
|
55
|
-
Set rngFrom =
|
|
55
|
+
Set rngFrom = Worksheets("入力").Range("B1:B8") 'コピー元のセル範囲
|
|
56
56
|
|
|
57
57
|
|
|
58
58
|
|
|
@@ -64,9 +64,9 @@
|
|
|
64
64
|
|
|
65
65
|
'行列を入れ替えて転記
|
|
66
66
|
|
|
67
|
-
rng
|
|
67
|
+
rngTo.Value = WorksheetFunction.Transpose(rngFrom.Value)
|
|
68
68
|
|
|
69
|
-
|
|
69
|
+
rngTo.Offset(, 8).Resize(, 1).Value = Sheets("入力").Range("c2").Value
|
|
70
70
|
|
|
71
71
|
End Sub
|
|
72
72
|
|
1
コードの間違いを修正
test
CHANGED
|
@@ -14,7 +14,7 @@
|
|
|
14
14
|
|
|
15
15
|
Set rngTo = Worksheets("点検履歴").Cells(Rows.Count, 1).End(xlUp) '最終行
|
|
16
16
|
|
|
17
|
-
Set rngTo =
|
|
17
|
+
Set rngTo = rngTo.Offset(1).Resize(, 8) 'コピー先のセル範囲
|
|
18
18
|
|
|
19
19
|
|
|
20
20
|
|