エクセルで特定文字列に色をつけたいです。
１セルの文字列の、２回目以後出現した日本にも赤色をつけるために Sub test1() Dim rng As Range, cl As Range, i As Long With ActiveSheet Set rng = .Range("a1:z100") '範囲の設定 txt = InputBox("色をつける文字の指定") '------ For Each cl In rng s = 1 While s <= Len(cl) p = InStr(s, cl, txt, 1) If p > 0 Then cl.Characters(p, Len(txt)) _ .Font.Color = vbRed s = s + p Else GoTo p1 End If Wend p1: Next End With End Sub を標準モジュールに貼り付けて実行してみてください。 （例） 日本の
エクセルのマクロ（VBA）でUTF-8を書き出す方法 - Qiita
VBAは標準ではShift-JISかUTF16LEのみ マクロを使ってHTMLの出力をする際にUTF-8で書き出したかったのですが、WriteLine()関数などでは基本的にShift-Jisになるようです。 UTF-8を書き出すにはADODB.Streamを使う(設定が必要) Visual Basic Editor のメニューから［ツール］→［参照設定］を選び，［参照可能なライブラリファイル］の中から "Microsoft ActiveX Data Objects x.x Library" にチェックを入れます。 バージョンは最新のものでOK? サンプルコード 書き出し用オブジェクトの準備 Dim output As ADODB.Stream Set output = New ADODB.Stream With output .Type = adTypeText .Charset = "
Excelの質問です。各列に点在する空白セルとデータのあるセルが混じったデータを1つの列に集約したいです。…
Excelの質問です。各列に点在する空白セルとデータのあるセルが混じったデータを1つの列に集約したいです。 今、C～H列、各列5万行ほど、空白セルと文字列が入ったデータがあります。 ただこのC～H列のうち、データのあるセルは各行1列のみになります。 例えばH列の4行目に文字列データがある場合、C～G列は空白セルですし。 C列の25行目にデータがあると、D～H列の25行目は空白セルになります。 この状況におきまして。 各列のデータのある行のデータを、移動させて、全部I列に集約したいのです。 効率的に行う関数やマクロ等がありましたら、お教えいただけますと幸いです。 よろしくお願い致します。
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
【特集】Excel VBAでIEを思いのままに操作できるプログラミング術 ～窓の杜 特別レッスン～
