Ｐａｇｅ 807 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼検索したセルを判定してコピーをするには？ まき 03/2/25(火) 1:45 ┗Re:検索したセルを判定してコピーをするには？ Jaka 03/2/25(火) 15:51 ┗Re:検索したセルを判定してコピーをするには？ まき 03/2/25(火) 22:20 ┗Re:検索したセルを判定してコピーをするには？ Jaka 03/2/26(水) 10:17 ┗Re:検索したセルを判定してコピーをするに... まき 03/2/27(木) 21:25 ─────────────────────────────────────── ■題名 ： 検索したセルを判定してコピーをするには？ ■名前 ： まき ■日付 ： 03/2/25(火) 1:45 -------------------------------------------------------------------------
| こんばんは。 ＶＢＡを使いたいのですが、うまくいきませんでしたので お力を貸していただきたいと思います。 まず、シート1には Ａ Ｂ 1 １ 2 ２ 3 ３ 4 ４ 5 ５ といったように31までの数字が入力されています。 シート２には Ａ Ｂ Ｃ Ｄ Ｅ Ｆ 1 １ ○ ● × △ 2 ４ ･･ ･･ ･･ 3 ５ ･･ ･･ ･･ 4 ８ ･･ ･･ ･･ ･･ のようなリストがあります。（○●×△および･･は数字です） このシート２のリストのA列をシート１のＡ列にある数字から検索して シート２にある場合には、同じ行のＢ列からＦ列を シート３にコピーするようにしたいと思います。 シート３にコピーする場合には規則があり、 この場合のシート２のＡ列の場合には、 Ａ Ｂ Ｃ Ｄ Ｅ Ｆ 1 ○ ● × △ 2 3 4 5 6 7 ･･ ･･ ･･ 8 9 ･･ ･･ ･･ 10 といったように、１*Ｎ+2行目（Ｎ＝０を初期値としています）にコピーするようにし 該当する数字がない行は空白にしたいと考えています。 ＦＯＲ〜ＮＥＸＴでＮの値を３１まで繰り返し、 ＦＩＮＤで検索したセルを戻り値として、 ＯｆｆｓｅｔでＢ列〜Ｆ列までを選択しコピーするようにコードを書きましたが、 本来空白行にしたいところに、 検索でＴＲＵＥ判定のセルの行のＢ列からＦ列までの内容をコピーしてしまします。 これを希望どおりの結果を得られるようにする方法をご教授いただきたいと思います。 コードを書いたほうが分かりやすいと思いましたが、 今、手元にファイルがなく、 あいまいな記述で質問するのもどうかと思いましたので 上記のような質問の仕方となってしましましたが、 手順としては質問の内容をコードに置き換えた物です。 私のコードの書き方が悪いので、うまくいかないのですが・・・。 申し訳ございませんが、よろしくお願いします。 |
| こんにちは。 はっきり言いまして、１*Ｎ+2行目の理論が全然解りませんでした。 解らないんで、適当に考えて下のように取りました。 1 * Range("A" & i).Value + 3 結果、お望みのSheet3配置にはなっていません。 この辺りを、頭の悪い第３者が読んでも理解できる程度に説明してください。 Sub kiki() Sh2End = Worksheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row Sar = Application.Match(Range("A" & i).Value, _ Sheets("Sheet2").Range("A1:A" & Sh2End).Value, 0) If IsError(Sar) = False Then WRo = 1 * Range("A" & i).Value + 3 Sheets("Sheet3").Range("B" & WRo).Resize(, 5).Value = _ Sheets("Sheet2").Range("B" & Sar).Resize(, 5).Value End If Next End Sub |
| ▼Jaka さん： レスありがとうございます。 確かに私の質問を読み返してみると 理解しづらい説明でした。 シート３のコピーする位置ですが、 Ａ Ｂ Ｃ Ｄ Ｅ Ｆ 1(1) ○ ● × △ ←シート２のＡ列１に該当する行 2 3{2} 4 5{3} 6 7(4) ･･ ･･ ･･ ←シート２のＡ列４に該当する行 8 9(5) ･･ ･･ ･･ ←シート２のＡ列５に該当する行 10 上の図のように変えてみました。 Ａ列の（ ）でくくられた数字はシート２のＡ列にある数字です。 { }でくくられた２と３はシート２にはありませんが、 もしあった場合には、図の行にＢ列以降がコピーされるという意味です。 つまり、シート２のＡ列で検索された数字が１であったときには, （１−１）＊２＋１ ＝ １ となり、シート３の１行目にコピーをし、 ４であれば （４−１）＊２＋１ ＝ ７ で、７行目、 １０であれば１９行目、２０であれば３９行目といった具合に シート３へコピーをしたいということです。 １＊Ｎ＋２という式にしたのは、 ＦＯＲ〜ＮＥＸＴで繰り返しの処理をした時に Ｎの初期値を ０ にしておけば、 戻り値が上の計算と同じ結果が求められるからです。 今日もいろいろ試していますが、 なかなか希望どおりの結果になりません。 再度お力を貸していただければ幸いに思います。 どうぞ、よろしくお願いします。 |
| こんにちは。 最初の質問ではシート２の３行目のデータは、Ｃ〜Ｄ列までだったはずですが、Sheet3に貼り付けるときは、左の空白列は取り除いて張り付けるということですか？ それと、１行目も検索して貼りつけるんだったんですね？ 項目名だと思って、無視してました。 それと実行シートをSheet1としていましたが、この辺りも？だったんで、どのシートからでも実行出来るように明確に記述しました。 前回のシートレイアウトと違っているので、やっぱりあいまいな質問になっているようですが．．。 シート１ Ａ Ｂ 1 １ 2 ２ 3 ３ 4 ４ 5 ５ シート２ Ａ Ｂ Ｃ Ｄ Ｅ Ｆ 1 １ ○ ● × △ 2 ４ ･･ ･･ ･･ 3 ５ ･･ ･･ ･･ 4 ８ ･･ ･･ ･･ ･･ 今回、 シート３のコピーする位置ですが、 Ａ Ｂ Ｃ Ｄ Ｅ Ｆ 1(1) ○ ● × △ ←シート２のＡ列１に該当する行 2 3{2} 4 5{3} 6 7(4) ･･ ･･ ･･ ←シート２のＡ列４に該当する行 8 9(5) ･･ ･･ ･･ ←シート２のＡ列５に該当する行 ← ここ左詰？？？？？ 10 左詰にしなくて良いのなら。 Sub kiki() Sh2End = Worksheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row For i = 1 To Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row Sar = Application.Match(Worksheets("Sheet1").Range("A" & i).Value, _ Worksheets("Sheet2").Range("A1:A" & Sh2End).Value, 0) If IsError(Sar) = False Then WRo = (Worksheets("Sheet1").Range("A" & i).Value - 1) * 2 + 1 Worksheets("Sheet3").Range("B" & WRo).Resize(, 5).Value = _ Worksheets("Sheet2").Range("B" & Sar).Resize(, 5).Value End If Next End Sub |
| こんばんは。 お返事遅れてすみません。 お答えいただいた方法でうまくきました。 ありがとうございました。 わかりづらい質問の仕方で お答えするのが大変だったかと思いますが、 見捨てずにご返答いただいたおかげで、 解決することができました。 本当にありがとうございました。 |