Excel VBA質問箱 IV

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

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


75375 / 76738 ←次へ | 前へ→

【5801】Re:セル位置を取得してデータをコピーしたい
お礼  山内 E-MAIL  - 03/5/31(土) 17:09 -

引用なし
パスワード
   ▼Kein さん:

ありがとうございました。
お陰様で完成いたしました。

>Dim Nm As String
>Dim xR As Variant
>
>Nm = Sheets("Sheet1").Range("E2").Value
>xR = Application.Match(Nm, Sheets("Sheet2").Columns(1), 0)
>If Not IsError(xR) Then
>  Sheets("Sheet1").Range("F2:G2").Copy Sheets("Sheet2") _
>  .Cells(x, 256).End(xlToLeft).Offset(, 1)
     ↑
    ここをxRに書き換えれば良かったのですね。
最初は、本を見て意味も考えずに数値や名称を書き換えてばかりいましたが、じっくりと見直すことで、勉強になりました。
そして、「ああ、なるほどなぁ〜、うまくできてるんだなぁ〜」と感心いたしました。Cells の指定する行に、match関数で取得した変数を代入しなさいという意味なんですね。Endは知らなかったので、ヘルプで見てみました。
ありがとうございます。
一応、実名を変えて、
http://homepage3.nifty.com/mebius21/macro.html
<A href="file:///C:/Documents and Settings/yyama/My
"入金記録シートサンプル"に、完成したものをアップロードしました。
もし、よろしかったら見てやってください。
1週間くらい保管しておこうと思います。

山内
4 hits

【5785】セル位置を取得してデータをコピーしたい 山内 03/5/30(金) 15:39 質問
【5795】Re:セル位置を取得してデータをコピーしたい Kein 03/5/30(金) 23:51 回答
【5799】Re:セル位置を取得してデータをコピーしたい 山内 03/5/31(土) 13:27 発言
【5801】Re:セル位置を取得してデータをコピーしたい 山内 03/5/31(土) 17:09 お礼

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