0

ボタンをクリックすると、すべての情報が 1 つのスプレッドシートからフォーム (Excel シート) に転送されるマクロを作成しようとしています。フォームの一番下に到達したときに行を挿入するということです。フォームの下部の列 A には、「追加」と表示されます。この細胞に接触するたびに線を挿入したい。助けてください！

例えば：

 for i = 1 to lastline
worksheet1.Range("A" & i).value = worksheet2.Range("A" & i)

if worksheet1.Range("A" & i).value contains "additional"  'please help me write this line
insert a line above this cell 'please help me write this line
end if
next i

助けてください！！！前もって感謝します！私の質問が意味を成すかどうか教えてください:)

4

1 に答える 1

0 
Dim tmp, skip As Long

skip = 0

For i = 1 To lastline
    tmp = worksheet2.Range("A" & i).Value
    If LCase(tmp) Like "*additional*" Then skip = skip + 1
    worksheet1.Cells(i + skip, 1).Value = tmp
Next i
于 2013-09-04T05:04:44.793 に答える