回答編集履歴
2
修正漏れ
answer
CHANGED
@@ -1,9 +1,4 @@
|
|
1
1
|
```VBA
|
2
|
-
' newBook.Worksheets(1).Range("A" & MaxRow).EntireRow = ThisWorkbook.Worksheets(1).Range("A2:AC2").Value
|
3
|
-
|
4
|
-
newBook.Worksheets(1).Range("A:" & MaxRow).EntireRow = ThisWorkbook.Worksheets(1).Range("A2:AC2").Value
|
5
|
-
```
|
6
|
-
```VBA
|
7
2
|
'newBook.Worksheets(1).Range(Cells(MaxRow, 1), Cells(MaxRow, 29)).Value = ThisWorkbook.Worksheets(1).Range(Cells(2, 1), Cells(2, 29)).Value
|
8
3
|
|
9
4
|
newBook.Worksheets(1).Range(newBook.Worksheets(1).Cells(MaxRow, 1), newBook.Worksheets(1).Cells(MaxRow, 29)).Value = ThisWorkbook.Worksheets(1).Range(ThisWorkbook.Worksheets(1).Cells(2, 1), ThisWorkbook.Worksheets(1).Cells(2, 29)).Value
|
1
追記
answer
CHANGED
@@ -2,4 +2,10 @@
|
|
2
2
|
' newBook.Worksheets(1).Range("A" & MaxRow).EntireRow = ThisWorkbook.Worksheets(1).Range("A2:AC2").Value
|
3
3
|
|
4
4
|
newBook.Worksheets(1).Range("A:" & MaxRow).EntireRow = ThisWorkbook.Worksheets(1).Range("A2:AC2").Value
|
5
|
+
```
|
6
|
+
```VBA
|
7
|
+
'newBook.Worksheets(1).Range(Cells(MaxRow, 1), Cells(MaxRow, 29)).Value = ThisWorkbook.Worksheets(1).Range(Cells(2, 1), Cells(2, 29)).Value
|
8
|
+
|
9
|
+
newBook.Worksheets(1).Range(newBook.Worksheets(1).Cells(MaxRow, 1), newBook.Worksheets(1).Cells(MaxRow, 29)).Value = ThisWorkbook.Worksheets(1).Range(ThisWorkbook.Worksheets(1).Cells(2, 1), ThisWorkbook.Worksheets(1).Cells(2, 29)).Value
|
10
|
+
|
5
11
|
```
|