Excel VBA質問箱 IV

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

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


54920 / 76732 ←次へ | 前へ→

【26595】Re:行のアドレス取得。
発言  kouka  - 05/7/11(月) 19:26 -

引用なし
パスワード
   こんばんは、IROCさん。

簡単に書くと以下の通りです。  
  Sheets("'元シート'").Select
  Selection.AutoFilter Field:=3, Criteria1:="<>'抜き出す条件'", Operator:=xlAnd
  Range("C2").Select
  Range(Selection, Selection.End(xlDown)).Select
  Selection.Copy
  Sheets("'移すシート'").Select
  Range("E1").Select
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
  Sheets("'元シート'").Select
  Range("H2").Select
  Range(Selection, Selection.End(xlDown)).Select
  Application.CutCopyMode = False
  Selection.Copy
  Sheets("'移すシート'").Select
  Range("F1").Select
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
と、いうような単純なことしかしてないのですが。。。
すみません、よろしくお願いします。
2 hits

【26583】行のアドレス取得。 kouka 05/7/11(月) 9:50 質問
【26584】Re:行のアドレス取得。 IROC 05/7/11(月) 9:51 回答
【26586】Re:行のアドレス取得。 kouka 05/7/11(月) 10:56 質問
【26588】Re:行のアドレス取得。 IROC 05/7/11(月) 13:41 回答
【26595】Re:行のアドレス取得。 kouka 05/7/11(月) 19:26 発言
【26618】Re:行のアドレス取得。 IROC 05/7/12(火) 10:31 回答
【26628】Re:行のアドレス取得。 kouka 05/7/12(火) 11:39 お礼

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