Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9346 / 76737 ←次へ | 前へ→

【72953】Re:文字列の置換について
発言  まい  - 12/10/16(火) 16:10 -

引用なし
パスワード
   ウッシさん

お返事ありがとうございます。

すみません、桁を間違えていました。
正しくは「1111100022222」を「11111-000-22222」に置換したいです。
桁は毎回13桁です。

コピー貼り付けのコードは下記です。

With c.EntireRow
 sheeto.Cells(i, "C").Value = .Range("AK1").Value
 sheet.Cells(i, "D").Value = .Range("C1").Value
 sheet.Cells(i, "E").Value = .Range("AJ1").Value
 sheetCells(i, "F").Value = .Range("AC1").Value
 sheet.Cells(i, "G").Value = .Range("AF1").Value
 sheet.Cells(i, "L").Value = .Range("F1").Value
 sheet.Cells(i, "M").Value = .Range("AV1").Value
 sheet.Cells(i, "Q").Value = .Range("AY1").Value
 i = i + 1
              
End With

sheeto.Cells(i, "C").Value = .Range("AK1").Value
の部分が置換したい文字をコピー貼り付けするところです。

どのように記述すればよいでしょうか?
宜しくお願い致します。

▼ウッシ さん:
>こんにちは
>
>桁数はいつも11桁ですか?
>
>コピー貼り付けのコードはどうなっていますか?
>そこに処理を追記すればいいと思います。

0 hits

【72951】文字列の置換について まい 12/10/16(火) 12:59 質問
【72952】Re:文字列の置換について ウッシ 12/10/16(火) 13:13 回答
【72953】Re:文字列の置換について まい 12/10/16(火) 16:10 発言
【72954】Re:文字列の置換について UO3 12/10/16(火) 16:25 発言
【72960】Re:文字列の置換について まい 12/10/17(水) 15:57 お礼

9346 / 76737 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free