--------

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
2009-01-16

配合(BlogPet)

きょうへっぽこは無料配合しなかった。

*このエントリは、ブログペットの「へっぽこ」が書きました。
Sub tool_Click()

Dim XX As Range, YY As Range, i As Integer, M1ws As Worksheet, M2ws As Worksheet

Set M1ws = Worksheets("マスタ1")
Set M2ws = Worksheets("マスタ2")

Application.ScreenUpdating = False

For Each XX In M2ws.Range("A2", M2ws.Range("A65536").End(xlUp))

Set YY = M1ws.Columns(1).Find(what:=XX.Value, Lookat:=xlWhole)

If Not YY Is Nothing Then

For i = 1 To 3

XX.Offset(0, i - 6).Value = YY.Offset(0, i).Value

Next i

End If

Next XX
スポンサーサイト

コメントの投稿

管理者にだけ表示を許可する

現在の時刻

ブログパーツ配布部屋
◆競伝お手軽ツールリンク◆
リンク
最近のコメント
カテゴリー
最近の記事
プロフィール

へっぽこたぬき

Author:へっぽこたぬき
FC2ブログへようこそ!

FC2カウンター
月別アーカイブ
小さな天気予報

-天気予報コム- -FC2-
カレンダー
05 | 2017/06 | 07
- - - - 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 -
JRA
ブログ内検索
ブロとも申請フォーム

この人とブロともになる

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。