No.5ベストアンサー
- 回答日時:
一応、#2の補足にある、"T3-133"という文字列の"T3"の"3"のみ上付きはクリアしましたが
マクロは希望していないようなので、マクロでできるよの報告のみで失礼します
Sub test()
Dim i As Long, ii As Integer
Dim a As String
a = "T3"
For i = 1 To Range("a65536").End(xlUp).Row
If InStr(Cells(i, 1).Value, a) > 0 Then
ii = InStr(Cells(i, 1).Value, a) + 1
Cells(i, 1).Characters(Start:=ii, Length:=1).Font.Superscript = True
End If
Next i
End Sub
No.4
- 回答日時:
こんばんは
まずはExcelのバージョンを教えてください。
Excelの2003では、書式を指定した置換も付いているのですが、「書式だけ」はうまくいきません。
Wordならば、2000でも上付文字だけ書式を変換することができます。
2回のコピー&ぺーーストでデータが崩れないようならば、いったんWordにコピーして置換を行う手もあると思います。
回答ありがとうございます。
Office XP Standardを使用しています。
Wordで出来ることは確認しました!!
しかし、例えば、"T3-133"のT付きの"3"だけ上付きにしたい場合、"3"のみの置換を行うと"133"のほうにも影響を及ぼし、上手くいきません。
対策があれば教えてください。
No.3
- 回答日時:
書式の検索が出来るようになったのは最近のバージョン。
それもフォントやパターンの関係。
上付きは検索ダイアロウグ画面でプレビューで上付きになるのに引っかからないようだ。2007などではどうかな。
ーーー
VBAではActiveSheetに対し
標準モジュールに
Sub test01()
For Each cl In Range("a1:D10")
For i = 1 To Len(cl)
If cl.Characters(Start:=i, Length:=1).Font.Superscript = True Then
MsgBox cl.Address & "の" & i & "文字目"
End If
Next i
Next
End Sub
で上付き文字のセルと文字位置がわかる。
上記はRange("a1:D10")の範囲限定。広げるのはコードを変えて可能。
回答ありがとうございます。
マクロであれば出来るのでしょうか!?
マクロを使用したことがないので理解できませんが。。
他の(マクロを使用しない)方法があれば教えて下さい。
No.2
- 回答日時:
マクロではダメ?
A列の文字列に上付きもしくは下付きの文字があれば
上付きは上付きのまま[A]に
下付きは下付きのまま[B]へ
それぞれ置換する
Sub test()
Dim i As Long, ii As Integer
For i = 1 To Range("a65536").End(xlUp).Row
For ii = 1 To Len(Cells(i, 1).Value)
With Cells(i, 1).Characters(Start:=ii, Length:=1)
If .Font.Superscript = True Then
.Caption = "A"
ElseIf .Font.Subscript = True Then
.Caption = "B"
End If
End With
Next ii
Next i
End Sub
参考までに
回答ありがとうございます。
マクロは使用したことがないですけど、、例えば"T3-133"という文字があった場合、"T"付きの"3"のみ上付き文字に換えたいという要望です。
回答の内容で上記のようなことは可能でしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA 教えてください。 VBA初心者です。 詳しい方がいましたら教えてください。 下記 3 2023/04/25 11:22
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Visual Basic(VBA) EXCEL VBAで教えてください。 1 2022/12/22 04:20
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- その他(Microsoft Office) Microsoft Excelの文字変換で教えて下さい。 商社勤務です。 営業マンと言う言葉と○万な 2 2022/04/23 11:14
- Excel(エクセル) エクセルの数式について教えてください。 7 2023/06/18 10:16
- Excel(エクセル) Excelに文字データのみを貼り付けたい 8 2023/05/03 15:38
- Excel(エクセル) Excelの複数置換はSUBSTITUTEを重ねるしかない? 9 2022/05/08 11:25
- その他(コンピューター・テクノロジー) 正規表現の置換で一部の文字列をそのまま残したい 2 2022/05/03 19:19
- Excel(エクセル) エクセルの数式で教えてください。 3 2023/04/17 09:25
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Wordの脚注を,1)・・2)・・3)...
-
日英、混合文。日本語だけ小さ...
-
word である文字をすべてイタリ...
-
ワードの箇条書き機能が使われ...
-
Wordデータから,特定の単語を...
-
キングソフトライター2012で質...
-
箇条書きのアタマに一括で「・...
-
テキストボックス一括編集
-
ワードの置換で、文字列の前後...
-
元素記号をワード内で置換
-
「WORD」での作業 日本語・英...
-
<WORD> 微分記号の入力
-
Wordでカッコで括った文字を一...
-
ワードで赤字のみを削除する方法
-
Excelでマクロ実行後、編集→置...
-
置換の仕方
-
wordで特定の色だけ印刷しない方法
-
Word セクション区切りの自動削除
-
Office ワードの段落記号消した...
-
パワポ2010 特定文字のみ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでシートにある赤文字...
-
Excelの表中,数字の「1」をす...
-
ワードで赤字のみを削除する方法
-
Wordでカッコで括った文字を一...
-
ワードで半角英数の文字だけ選...
-
箇条書きのアタマに一括で「・...
-
Wordデータから,特定の単語を...
-
ワードの表の中の値の表示形式...
-
excelマクロ ボタンを押して文...
-
「WORD」での作業 日本語・英...
-
Wordの脚注を,1)・・2)・・3)...
-
wordで特定の色だけ印刷しない方法
-
エクセルで、コンマをピリオド...
-
word 2003で、赤い文字(あるい...
-
Word相互参照の文字を一括で変...
-
EXCEL2010のハイパーリンク先の...
-
英数字のフォント「Century」に...
-
ワードで太字になっているとこ...
-
セルの中の不要な文字を削除し...
-
word である文字をすべてイタリ...
おすすめ情報