1

行の特定のセルの値をコピーして、次の行の別のセルに貼り付けたい。これが私がこれまでに持っているものです。

for i= 2 to 26160
    If (Cells(i, 3) >= 99) Then

        Cells(i, 3).Select
        Selection.copy
        Cells(i, 4).Select 'error
        Selection.Paste    'error    
    end if    
next i

しかし、私のコードは 4 行目と 5 行目でエラーが発生して動作していませんか?

4

3 に答える 3

0

直接コピーを使用して、以下の方法でクリップボードを回避してみませんか?

set NewSheet = Sheets("Sheet1") 'New sheet name
j = 1 'start pasting in this row on new sheet
for i= 2 to 26160   
    If ActiveSheet.Cells(i, 3) >= 99 Then 
        NewSheet.Cells(j, 4) = ActiveSheet.Cells(i, 3)
        j = j + 1
    end if 
next i
于 2013-04-19T07:09:07.693 に答える