teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

2

修正漏れ

2020/10/09 08:05

投稿

kuma_kuma_
kuma_kuma_

スコア2506

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

追記

2020/10/09 08:05

投稿

kuma_kuma_
kuma_kuma_

スコア2506

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
  ```