Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


27976 / 76732 ←次へ | 前へ→

【54069】Re:条件付 行のコピー貼り付け
質問  裕香 E-MAIL  - 08/2/22(金) 18:44 -

引用なし
パスワード
   ▼ひげくま さん:
ありがとうございます。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の数だけ って事がどうしても???

すみません。初心者で。

0 hits

【54065】条件付 行のコピー貼り付け 裕香 08/2/22(金) 16:20 質問
【54068】Re:条件付 行のコピー貼り付け ひげくま 08/2/22(金) 17:34 発言
【54069】Re:条件付 行のコピー貼り付け 裕香 08/2/22(金) 18:44 質問
【54070】Re:条件付 行のコピー貼り付け ponpon 08/2/22(金) 23:04 発言
【54073】Re:条件付 行のコピー貼り付け 裕香 08/2/23(土) 9:00 質問
【54074】Re:条件付 行のコピー貼り付け ponpon 08/2/23(土) 10:37 発言
【54076】Re:条件付 行のコピー貼り付け 裕香 08/2/23(土) 13:26 質問
【54078】Re:条件付 行のコピー貼り付け りん 08/2/23(土) 18:04 発言
【54093】Re:条件付 行のコピー貼り付け [名前なし] 08/2/24(日) 10:49 お礼
【54080】Re:条件付 行のコピー貼り付け ponpon 08/2/23(土) 20:01 発言
【54094】Re:条件付 行のコピー貼り付け 優香 08/2/24(日) 10:53 お礼

27976 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free