|
▼シェバルブラン さん:
こんにちは。
If Err.Number <> 0 Then
Err.Clear ' 追加行
Exit For
End If
End If
Next
If i > Len(v) Then Exit Function
strRevers = CLng(StrReverse(Left(v, i - 1)))
End Function
とりあえず上記の修正をお願いします。
>項目名(シリアルN0、データ)が、1行目でない場合や
>シリアルNo、とデータが離れている場合はどこを操作すればいいのでしょうか?
>すみませんがよろしくお願いします。
質問です。例えば Deta が D 列と I 列の 6行目(タイトル行)から有った時
E列〜H列のデータはどうするのですか。
D 列 E F G H 列
LWG4815534 ここにDataが TCLU4461414
LWG4815539〜LWG4815541 有った時 TCLU4461498
LWG4815542 HJCU4339945
↓
LWG4815534 TCLU4461414
LWG4815539 此処の追加された TCLU4461498
LWG4815540 行の処理 TCLU4461498
LWG4815541 TCLU4461498
LWG4815542 HJCU4339945
|
|