1

最初に、シート evaluatierooster_NL からシート evaluatierooster_NLFR にすべての行をコピーします。次に、シート evaluatierooster_FR からシート evaluatierooster_NLFR にすべての行 (最初の行を除く) を追加します。オブジェクトが見つからないという行の下にエラーが表示されますか?

LastRow = ActiveSheet.Cells.Find(What:="*", After:=evaluatierooster_NLFR.Range("A1"), _
                                 SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

'~~> Copy evaluatierooster_NL to evaluatierooster_NLFR
Sheets("evaluatierooster_NL").Select
Rows("1:" & Rows.Count).Copy
Sheets("evaluatierooster_NLFR").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("evaluatierooster_FR").Select
Rows("2:" & Rows.Count).Copy
Sheets("evaluatierooster_NLFR").Select

Dim LastRow As Long

Set LastRow = ActiveSheet.Cells.Find(What:="*", After:=evaluatierooster_NLFR.Range("A1"), _
                                     SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

ActiveSheet.Cells(LastRow, 1).Paste
4

2 に答える 2

0

以下を試してください：

'~~> Copy evaluatierooster_NL to evaluatierooster_NLFR
Dim LastRow As Long

Sheets("evaluatierooster_NL").Select
Rows("1:" & Rows.Count).Copy
Sheets("evaluatierooster_NLFR").Select
Range("A1").Select
ActiveSheet.Paste

Sheets("evaluatierooster_FR").Select
Rows("2:" & Rows.Count).Copy
Sheets("evaluatierooster_NLFR").Select

' get the last row (same as doing CTRL+Up keystroke in Excel)    
LastRow = activesheet.range("A65536").end(xlup).row+1

ActiveSheet.Cells(LastRow, 1).Paste

それはそれを行う必要があります。

于 2013-03-27T12:47:19.217 に答える
0

以下のコードを試してください。

Dim lastRow As Long

lastRow = Sheets("evaluatierooster_NL").Range("A65000").End(xlUp).Row
Sheets("evaluatierooster_NL").Rows("1:" & lastRow).Copy Sheets("evaluatierooster_NLFR").Range("A1")

 lastRow = Sheets("evaluatierooster_FR").Range("A65000").End(xlUp).Row
 Sheets("evaluatierooster_FR").Rows("2:" & lastRow).Copy Sheets("evaluatierooster_NLFR").Range("A65000").End(xlUp).Offset(1, 0)
于 2013-03-27T17:16:40.760 に答える