Excel VBA質問箱 IV

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

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


71124 / 76732 ←次へ | 前へ→

【10105】Re:セル内の文字列のうち最後の1文字だけ削除したい
回答  つん E-MAIL  - 04/1/7(水) 19:16 -

引用なし
パスワード
   さとさと さん、こんばんは

>会社で数千行もあるデータの修正を命じられました。
>ある製品型番の最後の1文字だけを削除する必要があります。

こんな感じではどうでしょうか?
A列にデータがあるとして、

Sub test()

  Dim i As Long
  
  For i = 1 To Range("a65536").End(xlUp).Row
    With Cells(i, 1)
      .Value = Left(.Value, Len(.Value) - 1)
    End With
  Next i
  

End Sub

一度お試しください。
あ、勿論、データはバックアップとってしてくださいね。

1 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 お礼

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