0

基準を満たす Sheet1 から行をコピーし、現在のデータの最後に行全体を投稿しようとしています。行をコピーできますが、貼り付けられません。助けていただければ幸いです。ここに私が書いたコードがあります:

Sub Button1_Click()

Dim i As Integer

'Range("H2:O65536").ClearContents

Sheets("Sheet1").Select
LastRowColA = Range("A65536").End(xlUp).Row

For i = 2 To LastRowColA

If Cells(i, 6) = "No" Then
Rows(i).Select
Rows(i).Copy

Sheets("Sheet2").Select
Dim LastRow As Long
Dim StartRow As Long
Dim Col As Long
Dim Row As Long

StartRow = 2
Col = 1
LastRow = findLastRow(1)

For Row = StartRow To LastRow
Rows(LastRow).Select
ActiveSheet.Paste

Next Row

Else
'do nothing
End If
Next i
End Sub


Function findLastRow(ByVal Col As Integer) As Long
    'Find the last row with data in a given column

    findLastRow = Cells(Rows.Count, Col).End(xlUp).Row
End Function
4

3 に答える 3

4

ここに行きます:少し短いですが、仕事をする必要があります...

Sub Button1_Click()
Dim i As Integer
Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Sheet1")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Sheet2")

For i = 2 To ws1.Range("A65536").End(xlUp).Row
    If ws1.Cells(i, 6) = "No" Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 6).End(xlUp).Row + 1)
Next i
End Sub
于 2012-08-27T19:18:53.517 に答える
3

もう少し助けを加えるために、一度にすべてのデータをフィルタリングしてコピーすることができるのに、潜在的に大きな行セットをループするためにすべての (処理) 時間を費やす必要はありません。

以下のコードを参照してください。データセットに合わせて少し調整する必要があるかもしれません。

Sub Button1_Click()

Dim ws1 as Worksheet: Set ws1 = ThisWorkbook.Sheets("Sheet1")
Dim ws2 as Worksheet: Set ws2 = ThisWorkbook.Sheets("Sheet2")

With ws1

    .UsedRange.AutoFilter 6, "No" 
    '-> assumes data starts in column A, if not adjust the 6

    Intersect(.UsedRange,.UsedRange(Offset(1)).SpecialCells(xlCellTypeVisible).Copy  
    ' -> assumes No's are there, if they may not exist, will need to error trap.

End With

With ws2

    .Rows(.Cells(ws2.Rows.Count, 6).End(xlUp).Row + 1).PasteSpecial xlPasteValues

End With

ws1.AutoFilterMode = False

End Sub
于 2012-08-27T20:06:20.443 に答える
0

// そのまま使用します。

Sheet2.Select (Sheet1.Rows(index).Copy)

Sheet2.Paste (Rows(index))

コピーする場合は、2 つ以上の行を貼り付けてから、for ループを使用します。

于 2014-03-06T06:21:25.550 に答える