Excel VBA質問箱 IV

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

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


71107 / 76732 ←次へ | 前へ→

【10122】ごめんなさい。わすれてた。
回答  Jaka  - 04/1/8(木) 11:20 -

引用なし
パスワード
   >ごめんなさい(T_T) わかりません。
>Chr(222)って「”」ですよね??
>どゆこと? 文字列が「””」で囲まれているケースがあるってこと?
>すんません。請説明でございますm(__)m

最後の文字が半角カナの濁音、半濁音だと、つんさんのコードだけだとポカしちゃうって事です。

For i = 1 To Range("a65536").End(xlUp).Row
  With Cells(i, 1)
     If Right(.Value, 1) = Chr(222) Or Right(.Value, 1) = Chr(223) Then
      .Value = Left(.Value, Len(.Value) - 2)
     Else
      .Value = Left(.Value, Len(.Value) - 1)
     End If
  End With
Next i

3 hits

【10101】セル内の文字列のうち最後の1文字だけ削除したい さとさと 04/1/7(水) 18:30 質問
【10105】Re:セル内の文字列のうち最後の1文字だけ削... つん 04/1/7(水) 19:16 回答
【10114】Re:セル内の文字列のうち最後の1文字だけ削... さとさと 04/1/8(木) 9:03 質問
【10115】Re:セル内の文字列のうち最後の1文字だけ... つん 04/1/8(木) 9:20 回答
【10116】Re:セル内の文字列のうち最後の1文字だけ... さとさと 04/1/8(木) 9:47 お礼
【10118】Re:セル内の文字列のうち最後の1文字だけ... Jaka 04/1/8(木) 10:48 発言
【10120】むむむ? つん 04/1/8(木) 11:03 質問
【10122】ごめんなさい。わすれてた。 Jaka 04/1/8(木) 11:20 回答
【10124】あ、なるほど つん 04/1/8(木) 11:37 お礼

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