質問: excel vba index match 日々変わるカウント数を該当列に転記 毎日インターネット上 excel vba index match 日々変わるカウント数を該当列に転記 毎日インターネット上のデータをexcel出力し下処理(書式修正、ダブりデリート、カウントなど)しsheet3のa列に品番、b列にそれぞれのカウントが来る様にしています。毎日内容が変わりますが、sheetはいつも同じ方が良いと思いそうしています。 sheet2は集計用として a列に品番、h列4/1.i列4/2.j列4/3と1ヶ月分の日付にしてあります。 やりたい事ですが、リストでsheet2の日付けを指定しa列の品番をsheet3のa列から探しそのカウント数(b列の数字)を先程リストで指定した日付列にもって来たいです! どなたか教えて頂けましたら。
回答: こんにちは >リストでsheet2の日付けを指定し~ 「リスト」というのが、ユーザフォームなのか、シート上のドロップダウン等なのかよくわからないので、その辺は適当にアレンジしていただくとして・・・ ・sheet2の1行目はタイトル行で、2行目からデータがあるものと仮定 ・1行目の日付はシリアル値と仮定 以下は、日付を直接指定した場合のサンプルです。 sheet2がアクティブな状態で実行します。 sub sample_q12319923() dim r const targetday = "2021/4/3" set r = range("h1").resize(, 31).find(datevalue(targetday)) if r is nothing then msgbox "該当日がありません" exit sub end if set r = range(cells(1, 1), cells(rows.count, 1).end(xlup)).offset(1, r.column - 1) r.formulalocal = "=iferror(vlookup(a2,sheet3!a:b,2,0),"""")" r.value = r.value end sub