回答編集履歴
3
修正
test
CHANGED
|
@@ -75,6 +75,8 @@
|
|
|
75
75
|
出来たフォルダーの中を探せば、
|
|
76
76
|
|
|
77
77
|
さっきの画像が画像ファイルであるはずです。
|
|
78
|
+
|
|
79
|
+
|
|
78
80
|
|
|
79
81
|
---
|
|
80
82
|
|
2
追記
test
CHANGED
|
@@ -75,3 +75,93 @@
|
|
|
75
75
|
出来たフォルダーの中を探せば、
|
|
76
76
|
|
|
77
77
|
さっきの画像が画像ファイルであるはずです。
|
|
78
|
+
|
|
79
|
+
---
|
|
80
|
+
|
|
81
|
+
> マクロの記録も試してみたのですが、うまく実行できませんでした。
|
|
82
|
+
|
|
83
|
+
> 最終行の下6行をコピーして貼り付ける
|
|
84
|
+
|
|
85
|
+
|
|
86
|
+
|
|
87
|
+
上手くできなかったなら、どうなったか説明してください。
|
|
88
|
+
|
|
89
|
+
「8行目から6行分行を挿入したい。」
|
|
90
|
+
|
|
91
|
+
がやりたい事ならそう書けばよくないですか？
|
|
92
|
+
|
|
93
|
+
責めているのではありません。よくよく考えて欲しいということです。
|
|
94
|
+
|
|
95
|
+
|
|
96
|
+
|
|
97
|
+
```ExcelVBA
|
|
98
|
+
|
|
99
|
+
Sub 転記2()
|
|
100
|
+
|
|
101
|
+
Dim rngFrom As Range
|
|
102
|
+
|
|
103
|
+
Dim rngTo As Range
|
|
104
|
+
|
|
105
|
+
Dim wbkTo As Workbook
|
|
106
|
+
|
|
107
|
+
Dim strFileName As String
|
|
108
|
+
|
|
109
|
+
|
|
110
|
+
|
|
111
|
+
With ThisWorkbook.Worksheets("Sheet1")
|
|
112
|
+
|
|
113
|
+
strFileName = .Range("C1").Value '転記先ファイル名取得
|
|
114
|
+
|
|
115
|
+
Set rngFrom = .Range("A8:O19") '転記元データセル
|
|
116
|
+
|
|
117
|
+
End With
|
|
118
|
+
|
|
119
|
+
|
|
120
|
+
|
|
121
|
+
'転記先を開く
|
|
122
|
+
|
|
123
|
+
Set wbkTo = Workbooks.Open(Filename:= _
|
|
124
|
+
|
|
125
|
+
"C:\Users\ファイル\" & strFileName)
|
|
126
|
+
|
|
127
|
+
'転記先セル用意
|
|
128
|
+
|
|
129
|
+
With wbkTo.Worksheets("個別データ")
|
|
130
|
+
|
|
131
|
+
.Rows(8).Resize(rngFrom.Rows.Count).Insert xlShiftDown
|
|
132
|
+
|
|
133
|
+
Set rngTo = .Range("A8").Resize(rngFrom.Rows.Count, rngFrom.Columns.Count)
|
|
134
|
+
|
|
135
|
+
End With
|
|
136
|
+
|
|
137
|
+
|
|
138
|
+
|
|
139
|
+
'コピペ
|
|
140
|
+
|
|
141
|
+
rngFrom.Resize(, 5).Copy rngTo.Range("A1")
|
|
142
|
+
|
|
143
|
+
rngFrom.Columns("H").Copy rngTo.Columns("H")
|
|
144
|
+
|
|
145
|
+
rngFrom.Columns("K").Copy rngTo.Columns("K")
|
|
146
|
+
|
|
147
|
+
rngFrom.Columns("M").Copy rngTo.Columns("M")
|
|
148
|
+
|
|
149
|
+
|
|
150
|
+
|
|
151
|
+
'転記先上書き保存
|
|
152
|
+
|
|
153
|
+
Application.DisplayAlerts = False
|
|
154
|
+
|
|
155
|
+
wbkTo.Close True
|
|
156
|
+
|
|
157
|
+
End Sub
|
|
158
|
+
|
|
159
|
+
```
|
|
160
|
+
|
|
161
|
+
なにかを操作する前に、
|
|
162
|
+
|
|
163
|
+
操作対象（操作したいセル範囲）を上手く表現出来てない気がします。
|
|
164
|
+
|
|
165
|
+
前にも言ったかもしれませんが、
|
|
166
|
+
|
|
167
|
+
まずは日本語で表現できるようになりましょう。
|
1
追記
test
CHANGED
|
@@ -29,3 +29,49 @@
|
|
|
29
29
|
数式も、コピペすればいいので、とりあえず、一番下に貼り付けてもいいのでは？
|
|
30
30
|
|
|
31
31
|
と、思いました。
|
|
32
|
+
|
|
33
|
+
|
|
34
|
+
|
|
35
|
+
あと、エクセルの画面は
|
|
36
|
+
|
|
37
|
+
エクセルの画面がアクティブな状態で、
|
|
38
|
+
|
|
39
|
+
Altキー+PrintScreenキーでコピーできます。
|
|
40
|
+
|
|
41
|
+
ペイントなどのソフトで貼り付けて保存すれば、
|
|
42
|
+
|
|
43
|
+
容易にここに貼り付けられると思います。
|
|
44
|
+
|
|
45
|
+
|
|
46
|
+
|
|
47
|
+
他には、
|
|
48
|
+
|
|
49
|
+
エクセルの機能で、
|
|
50
|
+
|
|
51
|
+
セル範囲を図としてコピー
|
|
52
|
+
|
|
53
|
+
↓
|
|
54
|
+
|
|
55
|
+
適当なシート上に貼り付け
|
|
56
|
+
|
|
57
|
+
↓
|
|
58
|
+
|
|
59
|
+
名前を付けて保存
|
|
60
|
+
|
|
61
|
+
↓
|
|
62
|
+
|
|
63
|
+
閉じる
|
|
64
|
+
|
|
65
|
+
↓
|
|
66
|
+
|
|
67
|
+
ファイル名の拡張子をZipに書き換える
|
|
68
|
+
|
|
69
|
+
↓
|
|
70
|
+
|
|
71
|
+
解凍
|
|
72
|
+
|
|
73
|
+
↓
|
|
74
|
+
|
|
75
|
+
出来たフォルダーの中を探せば、
|
|
76
|
+
|
|
77
|
+
さっきの画像が画像ファイルであるはずです。
|