質問編集履歴
3
ソース修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -33,7 +33,7 @@
|
|
|
33
33
|
|
|
34
34
|
endrow = ws1.cells(rows.count,"A").end(xlup).row
|
|
35
35
|
endrow1 = ws2.cells(rows.count,"A").end(xlup).row
|
|
36
|
-
newrow =ws.cells(rows.count,"A").end(xlup).row + 1
|
|
36
|
+
newrow = ws.cells(rows.count,"A").end(xlup).row + 1
|
|
37
37
|
|
|
38
38
|
ws1.Range("A2:A" & endrow1).copy
|
|
39
39
|
ws.Range("A" & newrow).pastespecial paste:=xlpastevalues
|
2
コード修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -33,7 +33,7 @@
|
|
|
33
33
|
|
|
34
34
|
endrow = ws1.cells(rows.count,"A").end(xlup).row
|
|
35
35
|
endrow1 = ws2.cells(rows.count,"A").end(xlup).row
|
|
36
|
-
newrow =cells(rows.count,"A").end(xlup).row + 1
|
|
36
|
+
newrow =ws.cells(rows.count,"A").end(xlup).row + 1
|
|
37
37
|
|
|
38
38
|
ws1.Range("A2:A" & endrow1).copy
|
|
39
39
|
ws.Range("A" & newrow).pastespecial paste:=xlpastevalues
|
1
ソースを修正しました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -26,21 +26,23 @@
|
|
|
26
26
|
fname = dir(thisworkbook.path & "\B*.xlsx")
|
|
27
27
|
workbooks.open thisworkbook.path & "\" & fname
|
|
28
28
|
|
|
29
|
+
Set ws = ThisWorkbook.Worksheets("sheet1")
|
|
29
30
|
set ws1 = workbooks(fname).worksheets("sheet1")
|
|
30
31
|
set ws2 = workbooks(fname).worksheets("sheet2")
|
|
31
32
|
|
|
33
|
+
|
|
32
34
|
endrow = ws1.cells(rows.count,"A").end(xlup).row
|
|
35
|
+
endrow1 = ws2.cells(rows.count,"A").end(xlup).row
|
|
33
|
-
newrow =cells(rows.count,"A").end(xlup).row+1
|
|
36
|
+
newrow =cells(rows.count,"A").end(xlup).row + 1
|
|
34
37
|
|
|
35
|
-
ws1.select
|
|
36
|
-
ws1.
|
|
38
|
+
ws1.Range("A2:A" & endrow1).copy
|
|
37
|
-
|
|
39
|
+
ws.Range("A" & newrow).pastespecial paste:=xlpastevalues
|
|
38
|
-
|
|
40
|
+
Application.CutCopyMode = False
|
|
39
|
-
Range("A1").select 'これを入れてみても貼り付け選択範囲が解除されない
|
|
40
41
|
|
|
41
|
-
ws2.select
|
|
42
|
-
|
|
42
|
+
ws2.Range("C2:C" & endrow1). Copy
|
|
43
|
+
’ここで、Ａ列の最終行＋１から貼付けたいのですが、デバックでみてみるとnewrowに2が入っていて
|
|
44
|
+
Ａ２から貼りついてしまう。
|
|
43
|
-
Range("A" & newrow).PasteSpecial paste:=xlpastevalues
|
|
45
|
+
ws.Range("A" & newrow).PasteSpecial paste:=xlpastevalues
|
|
44
46
|
Application.CutCopy Mode = false
|
|
45
47
|
|
|
46
48
|
End sub
|