回答編集履歴
3
修正
answer
CHANGED
|
@@ -37,6 +37,7 @@
|
|
|
37
37
|
↓
|
|
38
38
|
出来たフォルダーの中を探せば、
|
|
39
39
|
さっきの画像が画像ファイルであるはずです。
|
|
40
|
+
|
|
40
41
|
---
|
|
41
42
|
> マクロの記録も試してみたのですが、うまく実行できませんでした。
|
|
42
43
|
> 最終行の下6行をコピーして貼り付ける
|
2
追記
answer
CHANGED
|
@@ -36,4 +36,49 @@
|
|
|
36
36
|
解凍
|
|
37
37
|
↓
|
|
38
38
|
出来たフォルダーの中を探せば、
|
|
39
|
-
さっきの画像が画像ファイルであるはずです。
|
|
39
|
+
さっきの画像が画像ファイルであるはずです。
|
|
40
|
+
---
|
|
41
|
+
> マクロの記録も試してみたのですが、うまく実行できませんでした。
|
|
42
|
+
> 最終行の下6行をコピーして貼り付ける
|
|
43
|
+
|
|
44
|
+
上手くできなかったなら、どうなったか説明してください。
|
|
45
|
+
「8行目から6行分行を挿入したい。」
|
|
46
|
+
がやりたい事ならそう書けばよくないですか？
|
|
47
|
+
責めているのではありません。よくよく考えて欲しいということです。
|
|
48
|
+
|
|
49
|
+
```ExcelVBA
|
|
50
|
+
Sub 転記2()
|
|
51
|
+
Dim rngFrom As Range
|
|
52
|
+
Dim rngTo As Range
|
|
53
|
+
Dim wbkTo As Workbook
|
|
54
|
+
Dim strFileName As String
|
|
55
|
+
|
|
56
|
+
With ThisWorkbook.Worksheets("Sheet1")
|
|
57
|
+
strFileName = .Range("C1").Value '転記先ファイル名取得
|
|
58
|
+
Set rngFrom = .Range("A8:O19") '転記元データセル
|
|
59
|
+
End With
|
|
60
|
+
|
|
61
|
+
'転記先を開く
|
|
62
|
+
Set wbkTo = Workbooks.Open(Filename:= _
|
|
63
|
+
"C:\Users\ファイル\" & strFileName)
|
|
64
|
+
'転記先セル用意
|
|
65
|
+
With wbkTo.Worksheets("個別データ")
|
|
66
|
+
.Rows(8).Resize(rngFrom.Rows.Count).Insert xlShiftDown
|
|
67
|
+
Set rngTo = .Range("A8").Resize(rngFrom.Rows.Count, rngFrom.Columns.Count)
|
|
68
|
+
End With
|
|
69
|
+
|
|
70
|
+
'コピペ
|
|
71
|
+
rngFrom.Resize(, 5).Copy rngTo.Range("A1")
|
|
72
|
+
rngFrom.Columns("H").Copy rngTo.Columns("H")
|
|
73
|
+
rngFrom.Columns("K").Copy rngTo.Columns("K")
|
|
74
|
+
rngFrom.Columns("M").Copy rngTo.Columns("M")
|
|
75
|
+
|
|
76
|
+
'転記先上書き保存
|
|
77
|
+
Application.DisplayAlerts = False
|
|
78
|
+
wbkTo.Close True
|
|
79
|
+
End Sub
|
|
80
|
+
```
|
|
81
|
+
なにかを操作する前に、
|
|
82
|
+
操作対象（操作したいセル範囲）を上手く表現出来てない気がします。
|
|
83
|
+
前にも言ったかもしれませんが、
|
|
84
|
+
まずは日本語で表現できるようになりましょう。
|
1
追記
answer
CHANGED
|
@@ -13,4 +13,27 @@
|
|
|
13
13
|
列があってればどの位置に貼り付けてもいいようにも思えます。
|
|
14
14
|
エクセルの並び替えは割と速いので、変に切った張ったするより速いかも知れません。
|
|
15
15
|
数式も、コピペすればいいので、とりあえず、一番下に貼り付けてもいいのでは？
|
|
16
|
-
と、思いました。
|
|
16
|
+
と、思いました。
|
|
17
|
+
|
|
18
|
+
あと、エクセルの画面は
|
|
19
|
+
エクセルの画面がアクティブな状態で、
|
|
20
|
+
Altキー+PrintScreenキーでコピーできます。
|
|
21
|
+
ペイントなどのソフトで貼り付けて保存すれば、
|
|
22
|
+
容易にここに貼り付けられると思います。
|
|
23
|
+
|
|
24
|
+
他には、
|
|
25
|
+
エクセルの機能で、
|
|
26
|
+
セル範囲を図としてコピー
|
|
27
|
+
↓
|
|
28
|
+
適当なシート上に貼り付け
|
|
29
|
+
↓
|
|
30
|
+
名前を付けて保存
|
|
31
|
+
↓
|
|
32
|
+
閉じる
|
|
33
|
+
↓
|
|
34
|
+
ファイル名の拡張子をZipに書き換える
|
|
35
|
+
↓
|
|
36
|
+
解凍
|
|
37
|
+
↓
|
|
38
|
+
出来たフォルダーの中を探せば、
|
|
39
|
+
さっきの画像が画像ファイルであるはずです。
|