Excel(2000)で行毎にセルをみて、値を返す

質問

例えば、以下のようなデータがあったとして、各行毎に左から見た結果、最初にデータがあったセルの列の1行のセルの値を各行のG列に返したい。

______Ａ__Ｂ__Ｃ__Ｄ__Ｅ__Ｆ__Ｇ__
1行_ア__イ__ウ__エ__オ__カ____
2行_１__３__５__２__４__１__ア__
3行_____２__５__１__５__４__イ__
4行_____________２__８__２__エ__
5行_____２______２__１__４__イ__
6行_________５______２______ウ__

G列に結果。
例えば、G3のセルに何らかの関数を入れて、A3～F3を左から見た結果、B3に2というデータがあるので、その列の1行であるB1の値、イをG3に返すといったないようです。

_ は、スペースをとるためのものです。

実際のデータは500行あり、各行の検索する列数は23列あります。

よろしくお願い致します。

回答No.1

mshr1962 · ベストアンサー

A1:W1に表示する項目、A2:W501にデータ、X列に表示として
X2=INDEX($A$1:$W$1,1,SUMPRODUCT(MIN((($A2:$W2="")*100+1)*COLUMN($A$1:$W$1))))
すべて未入力の行があると#REF!のエラーになります。回避するなら
X2=IF(COUNTA($A2:$W2),INDEX($A$1:$W$1,1,SUMPRODUCT(MIN((($A2:$W2="")*100+1)*COLUMN($A$1:$W$1)))),"")

お礼

mshr1962さん。早速の回答ありがとうございました。大変助かりました。

回答No.4

EL-SUR

No.3ですが、ちょっと訂正(>_<)

どちらの式も INDEXのあとの
A$1:$W1 を A$1:W$1に変更（$の位置）してください。
お願いします。

最初の式
=INDEX(A$1:W$1,,MATCH(TRUE,A2:W2<>"",0))

2番目の式
=IF(COUNTA(A2:W2),INDEX(A$1:W$1,,MATCH(TRUE,A2:W2<>"",0)),"")

お礼

EL-SURさん。
丁寧なご回答ありがとうございました。

回答No.3

EL-SUR

関数を使った別案です。
こんなの p（．．）

データ：A列からW列
X2：
=INDEX(A$1:$W1,,MATCH(TRUE,A2:W2<>"",0))

CtrlキーとShiftキーを押しながらEnterで確定
数式の前後に {　}がついて配列数式になります。
{　}がつかないときは、数式バーにカーソルを置いた状態で
Ctrl＋Shift＋Enter してみてください。
あとはオートフィルで下にコピーするだけ。

データ未入力の場合のエラー処理も入れておくと、
=IF(COUNTA(A2:W2),INDEX(A$1:$W1,,MATCH(TRUE,A2:W2<>"",0)),"")

同じように Ctrl＋Shift＋Enter で確定。

回答No.2

I_X

マクロで、以下のようなもの作れば、出来ますよ。
★印はご自身で変えてください。

Dim IntGYO As Integer　　　　　'行カウンタ
Dim IntRET As Integer　　　　　'列カウンタ
Dim A As Characters　　　　　　'検索する文字
Start_GYO = 2　　　　　　　　　'行カウントスタート値
End_GYO = 500　　　　　　　　　'行カウントエンド値
Start_RET = 1　　　　　　　　　'列カウントスタート値
End_RET = 6　　　　　　　　　　'列カウントエンド値　　★ここは変更が必要
Input_clm = "G"　　　　　　　　'文字をコピーする先　　★ここは変更が必要

For IntGYO = Start_GYO To End_GYO　　　　　 '行のループ
　　For IntRET = Start_RET To End_RET　　　 '列のループ
　　　　If (Cells(IntGYO, IntRET) <> "") Then　 'その行、列が空白で無いなら
　　　　　　Cells(1, IntRET).Copy Cells(IntGYO, Input_clm)　　'文字列をコピーする
　　　　　　Exit For　　　　　　　　　　　　'ループを抜ける
　　　　End If
　　Next
Next

お礼

I_Xさん。ありがとうございました。
ＶＢＡですね。大変勉強になります。何かと参考になりそうなので、じっくりみさせてもらいます。
ありがとうございました。