過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     247
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼文字列検索、別シートに転記  竹下 02/10/22(火) 11:53
　　　┗Re:文字列検索、別シートに転記  Jaka 02/10/22(火) 14:26
　　　　　　┗Re:文字列検索、別シートに転記  竹下 02/10/23(水) 14:54

　───────────────────────────────────────
　■題名 ： 文字列検索、別シートに転記
　■名前 ： 竹下
　■日付 ： 02/10/22(火) 11:53
　-------------------------------------------------------------------------
   
　　　A　　　　　B　　　･･･

１　コード　　　ＩＤ

２　1411S1　　111111

３　1411S1　　222222

４　1411S1　　333333

５　1411S2　　444444

６　1411S2　　555555

７　1411S2　　666666

８



上のエクセルのデータを他のシートに転記したいのですが、

コードの1411S1だけの行を転記する場合、

どのようにすればよろしいでしょうか？


　───────────────────────────────────────
　■題名 ： Re:文字列検索、別シートに転記
　■名前 ： Jaka
　■日付 ： 02/10/22(火) 14:26
　-------------------------------------------------------------------------
   
こんにちは。

どこのシートのどこになど他、情報が少なすぎるので取りあえずSheet2のA1に張りつけてあります。

適当にカスタマイズしてください。

では。



Sub jiji()

　　re = Cells(Rows.Count, "A").End(xlUp).Row

　　ce = Cells(1, Columns.Count).End(xlToLeft).Column

　　Application.ScreenUpdating = False

　　Range("A1:A" & re).AutoFilter Field:=1, Criteria1:="1411S1"

　　Range("A2", Cells(re, ce)).SpecialCells(xlCellTypeVisible).Copy Sheets("Sheet2").Range("A1")

　　Range("A" & re).AutoFilter

　　Application.ScreenUpdating = True

End Sub


　───────────────────────────────────────
　■題名 ： Re:文字列検索、別シートに転記
　■名前 ： 竹下
　■日付 ： 02/10/23(水) 14:54
　-------------------------------------------------------------------------
   
Jaka さん、ありがとうございます。

早速ためしてみます。



もう少し具体的に質問できるようになれば

またお願いしますね。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     247