|
▼ひげくま さん:
ありがとうございます。m(_ _)m
>VBAのことをまったく知らなくて、単なる作成依頼、というわけではないんですよね?
>ご自分でどこまで考えているのかを提示したほうが良いと思いますよ。
↓
そうですよね。すみませんでした。
本当は全く知らないに等しいと思います。マクロの記録をして、
ちょこっと直す程度なので、恥ずかしくて書けませんでした。
実は、こんな感じでやってはいるものの、考えが及ばなくなったので・・・
Dim st As Integer
'対象データを検索
Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:="="
Selection.AutoFilter Field:=4, Criteria1:="<>1" = st
If st = 2 Then
Range("A2:E2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
'最終行にコピー
Range("A65536").End(Xlup).offset(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
If st = 3 Then
Range("A2:E2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
・・・・???
>単純に考えると、
>・1行目から順にD列とE列をチェック
>・D列が1以外&E列が空欄だったら、最終行の1つ下の行に、D列の値-1の数だけ、その行をコピー>というだけで済みそうですね。
↓
このD列の値-1の数だけ って事がどうしても???
すみません。初心者で。
|
|