エクセル2002、OSXP使用しています。
エクセルで以下の変換(というか挿入?)をしたいのですが
---------
[n][n][n][n]
[d]
[n][n][n][n][n][n][n][n]
[d]
[n][n][n][n][n][n]
[d]
---------
↓
--------
[n1][n2][n3][n4]
[d]
[n1][n2][n3][n4][n5][n6][n7][n8]
[d]
[n1][n2][n3][n4][n5][n6]
[d]
----------
このようにnの後に数字の1を挿入し、次のnは2、その次は3,4・・・・
と数字が1づつ増えて挿入し、[d]が現れるとまたnの後に初めの1を挿入しその次は2,3,4というようにしたいのですが。[ ]は特に意味はありません。
このようにできるソースを教えてください。宜しくお願いします。
No.1ベストアンサー
- 回答日時:
こんにちは。
詳しい例がなかったので、n -> n1, nn> n1n2 とするようにしました。
ごらんのとおり、
In Range("A1").CurrentRegion
ですから、Range("A1")から、続いているセルの範囲に対して実行します。
間が離れたり行が開いていたら、そこまでしかできません。変更の必要があれば、レスをつけてください。
Sub EnterLetter()
Dim c As Range
Dim i As Long
Dim j As Integer
Dim k As Integer
Const N As String = "n" '検索文字
Const F As String = "d" '初期化文字
i = 1
For Each c In Range("A1").CurrentRegion
k = 1
Do
If InStr(k, c.Value, F, vbBinaryCompare) > 0 Then
i = 1
End If
k = InStr(k, c.Value, N, vbBinaryCompare)
If k > 0 Then
c.Value = Mid$(c.Value, 1, k) & CStr(i) & Mid$(c.Value, k + 1)
i = i + 1: k = k + 1
End If
Loop Until k = 0
Next c
End Sub
No.2
- 回答日時:
こんにちは。
以下のマクロで試してみてください。
Sub 文字変換()
Dim x1 As Long
Dim c1 As Integer
'
With ActiveSheet
For x1 = 1 To .Range("A" & Rows.Count).End(xlUp).Row
If .Cells(x1, "A") = "n" Then
For c1 = 1 To .Cells(x1, "A").End(xlToRight).Column
.Cells(x1, c1) = .Cells(x1, c1) & c1
Next
End If
Next
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) 関数を教えてください 1 2022/12/13 15:56
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- その他(Microsoft Office) Wordを変換してExcelに挿入 2 2022/07/04 23:59
- 数学 3次対称群S3はシロー部分群で因数分解できない この問題の証明が分かりません。できる範囲で教えていた 1 2022/12/13 13:10
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2022/04/01 12:11
- その他(プログラミング・Web制作) 変換のプログラムを教えてください。 6 2023/07/01 09:57
- Excel(エクセル) エクセルのAltを押すと「自動保存」「上書き保存」・・・に白抜きの「1」「2」・・・が出る。 2 2023/08/11 11:39
- ホームページ作成・プログラミング 秀丸に関して教えて下さい。 1 2022/06/30 10:00
- Excel(エクセル) 【エクセル】COUNTIFの検索条件が可変する数字の場合の数式 1 2022/09/27 15:34
- Word(ワード) 正の文字 4 2022/08/23 16:06
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
太ってる女とのSEX
-
恋人などと挿入したまま入眠し...
-
挿入中の潮について、ものすご...
-
入れてる最中に、『めっちゃ濡...
-
直ぐに挿入をせまる彼女
-
40代男性が好むSEXはどんなもの...
-
処女卒業して3ヶ月の大学生です...
-
女性の方へ、イクことと女性の...
-
もう少しでイケそうな時、どん...
-
女性の方 イクようになったき...
-
挿入時、キツっって言いながら...
-
あそこが狭い女性とのHについ...
-
入ってるかどうかわからない
-
手コキとマンコに挿入するのと...
-
嫁がバイブでしか逝きません。
-
いきそうでいけない・・・
-
すぐ乾いて挿入できません
-
挿入のときに力を抜く方法はあ...
-
AVって、本当に挿入してるんで...
-
(女性へ質問)ピストン運動の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
太ってる女とのSEX
-
恋人などと挿入したまま入眠し...
-
直ぐに挿入をせまる彼女
-
40代男性が好むSEXはどんなもの...
-
挿入時、キツっって言いながら...
-
処女卒業して3ヶ月の大学生です...
-
入れてる最中に、『めっちゃ濡...
-
もう少しでイケそうな時、どん...
-
女性の方へ、イクことと女性の...
-
あそこが狭い女性とのHについ...
-
入ってるかどうかわからない
-
女性の方 イクようになったき...
-
手コキとマンコに挿入するのと...
-
嫁がバイブでしか逝きません。
-
いきそうでいけない・・・
-
挿入中の潮について、ものすご...
-
すぐ乾いて挿入できません
-
挿入のときに力を抜く方法はあ...
-
挿入しやすい体位
-
女です。高確率で前戯でイッて...
おすすめ情報