Excel VBA質問箱 IV

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

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


43694 / 76735 ←次へ | 前へ→

【38081】Re:文字の位置変更
回答  Kein  - 06/5/26(金) 0:42 -

引用なし
パスワード
   初めからそのままを提示してれば、二度手間にならずに済みましたよね ?
ま、しょーがないから新ためてサンプルコードをUPします。
"マル"の直後の数値が、必ず2桁であるという前提で

Sub Data_Rep()
  Dim C As Range
  Dim Pt As Integer
 
  For Each C In Range("A1", Range("A65536").End(xlUp))
   Pt = InStr(1, C.Value, "マル")
   If Pt > 0 Then
     C.Characters(Pt + 4, 0).Insert "マル"
     C.Characters(Pt, 2).Delete
   End If
  Next
End Sub

0 hits

【38071】文字の位置変更 ゆん 06/5/25(木) 23:39 質問
【38072】Re:文字の位置変更 かみちゃん 06/5/25(木) 23:45 発言
【38073】Re:文字の位置変更 Kein 06/5/25(木) 23:57 回答
【38074】Re:文字の位置変更 ゆん 06/5/26(金) 0:12 発言
【38075】Re:文字の位置変更 かみちゃん 06/5/26(金) 0:18 発言
【38080】Re:文字の位置変更 ゆん 06/5/26(金) 0:31 発言
【38077】Re:文字の位置変更 Kein 06/5/26(金) 0:24 発言
【38079】Re:文字の位置変更 ゆん 06/5/26(金) 0:29 発言
【38078】Re:文字の位置変更 ゆん 06/5/26(金) 0:26 質問
【38081】Re:文字の位置変更 Kein 06/5/26(金) 0:42 回答
【38082】Re:文字の位置変更 ゆみ 06/5/26(金) 0:51 発言

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