A列の表の値を別の表の該当セルに転記していく。

質問

新たに質問させていただきます。

Sheet2にこのような表があります。
Sheet1A列にランダムで数字が並んでいます。503、401、310　・・・
A1"503"は、Sheet2の表のF2に入ります。同様に
Sheet1A2"401"は表のH6にはります。

このようにA1をSheet2F2に転記するのに
表のI列で検索し、該当のI1を見つけD1:H1,D3:H3からF1を見つけF2に転記していくことは可能でしょうか？

回答No.4

keithin

＞表には数式を入れたくありません。
＞貼りつけていく方法はありませんか？

コピー貼り付けは手動の操作ですが，つまりそういうコトをマクロでやりたいというコトですか？
元のご相談にはそんなことは何も書いてありませんが。

マクロのロジック自体は，数式で計算しているのとだいたい一緒ですから，応用も容易いと思います。

sub macro1()
　dim h as range
　dim c as range
　dim target as range

　on error resume next
　worksheets("Sheet1").select

　for each h in range("A1:A" & range("A65536").end(xlup).row)
　if h <> "" then
　　set target = worksheets("Sheet2").range("I:I").find(what:=h \ 100, lookin:=xlvalues, lookat:=xlwhole)
　　set c = worksheets("Sheet2").range("D1:H1,D3:H3").find(what:=h mod 100, lookin:=xlvalues, lookat:=xlwhole)
　　worksheets("Sheet2").cells(target.row + c.row, c.column) = h.value
　end if
　next
end sub

回答No.3

kybo

>表には数式を入れたくありません。

数式を入れて、数値が表示されたら、
表を範囲選択→形式を選択して貼り付け→値でＯＫすればよいだけだとおもいますが。

>貼りつけていく方法はありませんか？

どういう回答を期待しているのか知りませんが、1）または2）になると思われます。

1）ひとつひとつ目で確認して、手作業でコピー＆ペーストする。

2）マクロでする。（マクロの知識がないなら、あきらめて下さい）

補足

ありがとうございます。
2）マクロでする。
でお願いできますか？

回答No.2

keithin

Ｄ２に
=IF(COUNTIF(Sheet1!A:A,$I1*100+D1),$I1*100+D1,"")
と記入してＨ２までコピー貼り付けます

Ｄ４に
=IF(COUNTIF(Sheet1!A:A,$I1*100+D3),$I1*100+D3,"")
と記入してＨ４までコピー貼り付けます

Ｄ１：Ｈ４をコピーし，リストの下端まで貼り付けます。

お礼

ありがとうございます。
たしかに表示されますが
表には数式を入れたくありません。
貼りつけていく方法はありませんか？

回答No.1

kybo

D2のセルに以下の様に入れ、H2までコピー。さらにD2:H2をD4:H4、D6:H6・・にコピー。

=IF(COUNTIF(Sheet1!$A:$A,VALUE(OFFSET($I$1,INT(((ROW(G1)-1)/4))*4,0)&TEXT(D1,"00")))>0,VALUE(OFFSET($I$1,INT(((ROW(G1)-1)/4))*4,0)&TEXT(D1,"00")),"")

強引に1つの式でしているので、式が長くなっていますが、
例えば503がSheet1のＡ列にあるかどうか判断し、あれば表示するという形にしています。

お礼

ありがとうございます。
たしかに表示されますが
表には数式を入れたくありません。
貼りつけていく方法はありませんか？