|    | 
     ▼シェバルブラン さん: 
 
 
こんにちは。 
 
     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 
 
 | 
     
    
   |