| 
    
     |  | ▼seiya さん: 
 早速試してみたのですが、途中でエラーが出てしまいます。
 
 > .Offset(, -(x - i)) = Mid(txt, i, 1)
 
 ここの記述部分で
 
 実行時エラー'1004'
 アプリケーション定義またはオブジェクト定義のエラーです。
 
 とでてきます。
 
 せっかく教えていただいたのに申し訳ありませんが、どうしてだか
 わかりますか?
 
 あと、先ほどの例とは違って一度に複数の金額を反映させることは
 可能でしょうか?
 
 例2)
 《sheet1》
 A    B    C    D    E    F
 1   名前   金額   繰越   消費税  合計
 2   はなこ  50,000       2,500  \52,500
 3   たろう  45,000  -5,000  2,000  \42,000
 4   あきこ  150,000  50,000  10,000 \210,000
 
 《sheet2》
 フォーマット1ページのサイズ
 A1〜Z10
 G    H    I J K L M N O P
 6   はなこ            5 0 0 0 0
 7
 8                    2 5 0 0
 9                \ 5 2 5 0 0
 ・
 ・
 ・
 16  たろう            4 5 0 0 0
 17                 △ 5 0 0 0
 18                  2 0 0 0
 19               \ 4 2 0 0 0
 ・
 ・
 ・
 
 |  |