• ベストアンサー

セルのバイト数をカウントして文字を付加する方法

B列の値のバイト数が2バイトの場合、その値の前に●、後ろに★を 付けるマクロを教えてください。

画像を拡大する

質問者が選んだベストアンサー

  • ベストアンサー
  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.1

こんばんは！ ＞B列の値のバイト数が2バイトの場合・・・ とありますが、お示しの場合は4バイトになります。 一応そういうコトだとしての一例です。 Sub Sample1() Dim i As Long For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row If LenB(Cells(i, 2)) = 4 Then Cells(i, 2) = "●" & Cells(i, 2) & "★" End If Next i End Sub こんな感じではどうでしょうか？m(_ _)m

yukisaka
質問者

お礼

有難うございます。 仰るようにバイト数の考え方（、LenとLenBの解釈）を間違ていました。 御呈示いただいたサンプルでやりたかったことができました。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • セルのバイト数をカウントして文字を付加する方法２

    http://okwave.jp/qa/q7971095.html で後述のマクロを紹介していただきましたが、 B列の値のバイト数が4バイトの場合、その値の最後から1つ目と2つ目の間に●を付加するマクロの場合はどのように改造すればよいのでしょうか。 B列の各セルですが、Ｎｕｌではなく何かの値が必ずあるという前提で構いません。 Sub Sample1() Dim i As Long For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row If LenB(Cells(i, 2)) = 4 Then Cells(i, 2) = "●" & Cells(i, 2) & "★" End If Next i End Sub Excelのバージョンは２００７を使用しています。

  • 文字列が入っているセル数をカウントしたいのですが

    Excell2000です。初心者です。よろしくお願いします。 シート１にざっと1万件ぐらいデータがあるのですが、 A列に取引先のID B列に取引先名 C列に日付 D列に評価（数値） E列にコメント欄、が設けてあります。 日ごと更新のためAB列のデータの重複はあります。 E列のコメントは20件に1件ぐらい書かれている程度で、 記入がない場合は空欄です。 やりたいことは、シート２に取引先IDごとにコメントが何件あるのか出したいのです。 例えば A列のIDが１の場合でコメントが入力されているのは何件あるか。 そしてできれば、その数を出した隣にリストでコメントが出るようになるとうれしいです。 コメント数が５なら、そのコメントがリストに５行出るようにしたいです。 「特定でない文字列が入っている場合」というのはやはりマクロをかかないとだめなのでしょうか。（やったことがないので） いや、マクロでもがんばりますのでどなたか教えていただけませんか？

  • セル内のデータの数をカウントしたいのです

    Ａ列・Ｂ列・・・の各列内のデーターの数を各列1行目に表示したいのですが、Ｂ1に表示ならCOUNTA(A:A)でいいと思いますが、Ａ1にＡ列の数、Ｂ1にＢ列の数、Ｃ1にＣ列の数・・・というふうに作りたいのです。 ちなみに各列は可変でどんどんデーターが追加されます。 各列のデーターの増え方は規則性がありません。 重複でも1件のデーターとして数えます。 Ａ列は数字のみＢ列以降は文字がはいります。 以上の条件です、よろしくお願いします。

  • B列のセルにある文字が出た時A列のセルの値を変える

    B列のセルにある文字が出てきたときA列のセルの値を変える式、マクロを教えて下さい 　A列のセルの値のリストは最初から決まっていてB列のセルに出てくるある文字と同じ数あります。

  • Excel2007の文字数カウント(半角0.5)

    Excel（エクセル）2007で、 ある1列のすべてのセル内の文字を「半角文字⇒0.5文字」、「全角文字⇒1文字」とカウントした場合の文字数表示をしたいのですが、方法がわかりません。 ----------------------------- たとえば、↓のように表示されるようにしたいです。 【A列 (文字)】 　　　 A1:いぬ A2:犬 A3:イヌ A4:dog ↓↓↓ 【B列 (文字数)】 B1:2 B2:1 B3:1 B4:1.5 ※「A3:イヌ」の"イヌ"は全角カタカナではなく半角カタカナなので、1(0.5×2)文字となります。 【補足】 ※極力、マクロとVBAを使わない方法を知りたいです。 ※マクロやVBAを使わなければ上記の条件を満たすカウントと文字数表示ができない場合、その方法やVBAソースが知りたいです。できれば、コマンドボタンを押すと文字数を表示する仕様にしたいです。 ※上記の【A列 (文字)】 の文字はあくまで例です。実際は、どんな文字や数字にも対応できる応用の利く仕様にしたいです。 ※上記の【A列 (文字)】が4行というのもあくまで例です。実際には、何行にでも対応できる仕様にしたいです(具体的には、時間はかかると思いますが10000行くらいまで対応できるのが理想です)。 ここまでの条件を満たす「文字数カウント」の方法、 もし分かる方がいましたらどうかよろしくおねがいします。

  • エクセルでセル内の文字をカウントしたい

    エクセルでセル内の文字をカウントしたいです。 例えば A| B| 1|1,2| 2|1,3| 3|2,3| 4|2 | 5|3 | というエクセルでＢ列の1の数、2の数、3の数をカウントしたいです。 Ｂ列の中には数字と数字の間は,が入っています。 困っています！よろしくお願いします！

  • 最大バイト数を調べるSQL文を教えてください

    SQL初心者です。 初歩的なSelect文だと思うのですが、 以下のSQLの書き方を教えてください。 「テーブルAの列Bに入っている文字列のバイト数のうち、 　最大のバイト数の値を返すSQL」 バイト数をすべて取得するのであれば SELECT LENGTHB(B) FROM A になるかと思うのですが、最大のものを 求める書き方がわかりません。 よろしくお願いします。

  • Excelの関数「セルに含まれるある文字をカウントしたい」

    例えばカンマ区切りのデータを、 エクセルで最初に区切ることをせずに開いたとします。 そのとき、Ａ列にだけデータがはいってきますが、 そのＡ列を参照して「カンマの数」を数えることはできるでしょうか。 　　Ａ列の値　　　　　　　数式の結果 ａ，ｂ，ｃ，，，，ｇ　　＝　　　６ となるイメージです。 関数でなくても、なにかいい方法がありましたら アドバイスいただければと思います。 よろしくお願いします。

  • マクロを使って文字が入力されたセル数を数える

    マクロを用いて、文字が入力されたセル数をカウントしたいと考えていますがうまくいかず悩んでおります．．． 具体的には、セルB1からB1000にデータが入力された場合、左隣のA列に1から番号を付したいと考えています． B列が空白のままの行は、A列も空白にしておきたいです． （セルB1からB1000まで全てにデータが入力された場合、A1からA1000には1から1000までの番号が入る） また、A列に付された番号を判断し、100番毎にA列からE列までセル背景を色分けしていきたいと考えています． （B列が空白ならxlNoneでその行は無色のままにしたい） セル背景の色分けだけであればうまくいったのですが、B列の入力状況により自動でA列に番号（数字）を変化させたら思い通りに動かず困っています． ご教示、宜しくお願いします．

  • エクセルの文字数カウントに関して

    エクセル初心者なのでお恥ずかしい質問かもしれませんが、ご協力よろしくお願いいたします。 A列　　　B列　　　C列 123　　　124　　　1 122　　　122　　　0 124　　　12 　　　1 上記のようにA列・B列を比較して、違う文字の文字数をC列に 出したいのですが、どうもうまくいきません。 よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する