|
こんにちは。
詳細が良く解らない上、ソートとか全く考えてません。
書いてきたので、一応載っけてみます。
尚、初回の質問文以降見てませんから、全くでたらめかも。
データCSV名を「メーターの管理.csv」として、かつ開いている状態で。
B3に下記関数を入れ下にフィルドラッグ。
(注)半角英数の文字が長いとUPできないので、適当な所で改行してあります。
=IF(ISNA(INDEX(メーターの管理.csv!$D$1:$E$5,MATCH(A3,メーターの管理.csv!$D$1:$D$5,0),1))
,"",INDEX(メーターの管理.csv!$D$1:$E$5,MATCH(A3,メーターの管理.csv!$D$1:$D$5,0),2))
これをマクロですると、
'データCSV名を「メーターの管理.csv」として、かつ開いている状態で。
Sub mmmet()
データCSV名 = "メーターの管理.csv"
With ThisWorkbook.Sheets(1)
With .Range("A3", .Range("A65536").End(xlUp)).Offset(, 1)
.Formula = "=IF(ISNA(INDEX(" & データCSV名 & "!$D$1:$E$5,MATCH(A3," & _
データCSV名 & "!$D$1:$D$5,0),1)),"""",INDEX(" & データCSV名 & _
"!$D$1:$E$5,MATCH(A3," & データCSV名 & "!$D$1:$D$5,0),2))"
'.Value = .Value '実数にしたい場合は、ここのチェックを外す。
End With
End With
End Sub
タグNoの下3桁が値と同じみたいなので、すべて同じパターンだったら下記で済みそうですけど。
=VALUE(RIGHT(A3,3))
|
|