Excel VBA質問箱 IV

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

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


50139 / 76732 ←次へ | 前へ→

【31488】Re:セル内文字列(指定文字)の分割
発言  ponpon  - 05/11/22(火) 22:59 -

引用なし
パスワード
   こんばんは。
作ってみました。

Sub test()
  Dim myR As Range, r As Range
  Dim Acnt As Integer
  
  Set myR = Range("A2", Range("A65536").End(xlUp))
  For Each r In myR
     Acnt = InStr(r.Value, "本")
    If Acnt > 0 Then
     r.Offset(0, 1).Value = Mid$(r.Value, Acnt, Len(r.Value) - Acnt + 1)
     r.Value = Left$(r.Value, Len(r.Value) - (Len(r.Value) - Acnt + 1))
    End If
  Next
  set myR = Nothing
End Sub

0 hits

【31487】セル内文字列(指定文字)の分割 超初心者SS 05/11/22(火) 22:08 質問
【31488】Re:セル内文字列(指定文字)の分割 ponpon 05/11/22(火) 22:59 発言
【31489】Re:セル内文字列(指定文字)の分割 ichinose 05/11/22(火) 23:16 発言
【31491】Re:セル内文字列(指定文字)の分割 超初心者SS 05/11/23(水) 7:29 お礼

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