□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 文字列 | |
|---|---|
[196097] 文字列- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ みな -(2024/01/27(07:49)) □U R L/ こんにちは active sheetで 文字列の最初の2文字だけ消す方法はありますか? 半角 全角 スペース 全ての2文字です | |
[196100] Re[1]: 文字列- ■記事引用/メール受信=OFF■ □投稿者/ kazuo -(2024/01/28(09:16)) □U R L/ A B C 1 =C1 123456 2 =B1 abcdef 3 A12345 B のときどうなれば良いのですか？ セルA1とA2は数式なので対象外 セルC1は数値なので対象外 セルB2は対象なので"cdef"とする （セルA2も"cdef"と表示されるが問題なし） セルA3とB3は2番目以降に出現した文字列なので対象外 セルA3は2345（数値)とする セルA3は"2345"（文字列)とする セルB3は""(empty)とする ++++++++++++++++++++ OS ⇒Windows 11 Version⇒Excel 2021 ++++++++++++++++++++ | |
[196101] Re[2]: 文字列- ■記事引用/メール受信=OFF■ □投稿者/ みな -(2024/01/28(22:40)) □U R L/ 数式と空欄はありません | |
[196104] Re[3]: 文字列- ■記事引用/メール受信=OFF■ □投稿者/ kazuo -(2024/01/30(08:20)) □U R L/ 詳細を説明される気が無いようなので私はここまでとします。
>数式と空欄はありません
そんなはずは無いと思いますが、
一例です。
Sub test()
Dim cell As Range
For Each cell In ActiveSheet.Cells
cell = Mid(cell, 3)
Next
End Sub
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[196111] Re[4]: 文字列- ■記事引用/メール受信=OFF■ □投稿者/ 通りすがり10 -(2024/02/16(17:57)) □U R L/ こっちのほうが現実的ですかね。
Sub test()
Dim one As Range
For Each one In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants)
one.Value = Mid(one.Value, 3)
Next
End Sub
アクティブシートの値の入ってるセル全部の先頭２文字を削除するコードですが。
数式はないものとして書きました。
でもこれだと。
セルに真偽値があったり、実数があったりした場合。
データによっては怪しいことが起こります。
後タイトル行とかも要求通り消えます。
全部とのことなので質問のままに返答しております。この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |