• ベストアンサー

エクセルでアルファベットの連続を簡単に入力するには

以下のようにアルファベットを連続して 簡単に入力する方法があれば教えてください A B ・ ・ Y Z AA AB ・ ・ AZ BA BB BC ・ ・ ZZ

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

  • ベストアンサー
  • mshr1962
  • ベストアンサー率39% (7418/18948)
回答No.1

=MID(ADDRESS(1,ROW(A1)),2,FIND("$",ADDRESS(1,ROW(A1)),2)-2) これを下方に必要分コピーして結果を表示して、 形式を選択して貼り付けで値化する ※横方向に展開する場合はROW(A1)の代わりにCOLUMN(A1)を使用してください。

viyamin
質問者

お礼

回答ありがとうございました。 バッチリです。

その他の回答 (3)

  • DOUGLAS_
  • ベストアンサー率74% (397/534)
回答No.4

#ご参考までに。。。  mshr1962 さんの [ANo.1] と同じヤリ方ですが、 縦方向なら =SUBSTITUTE(ADDRESS(1,ROW(A1),4),1,"") 横方向なら =SUBSTITUTE(ADDRESS(1,COLUMN(A1),4),1,"") でもいけます。  なお、[ANo.1] の mitarashi さんが >なぜかIT(254列目相当)で打ち切り と書いていらっしゃいますが、2003 では、最後「IV」 までいけました。

viyamin
質問者

お礼

回答ありがとうございました。 参考にさせていただきます。

  • mitarashi
  • ベストアンサー率59% (574/965)
回答No.3

#2さんの回答に対するおまけです。 ユーザー設定リストというのは、エクセルを操作していてたまに遭遇しましたが、こういう風に使うのですね。A,B...をオートフィルで入れたいと、たまに感じるときがありますので、手抜きの設定マクロを作成してみました。当方いまだにxl2000ですので、256列までですが、下記を実行すると、エラーは出ないものの、なぜかIT(254列目相当)で打ち切りになっておりました。 Sub test() Dim i As Long Dim buf(256) As Variant Dim temp As String For i = 1 To 256 temp = Cells(i).Address(ColumnAbsolute:=False, RowAbsolute:=False) temp = Replace(temp, "1", "") buf(i) = temp Next i Application.AddCustomList ListArray:=buf End Sub

viyamin
質問者

お礼

回答ありがとうございました。 参考にさせていただきます。

  • ka_na_de
  • ベストアンサー率56% (162/286)
回答No.2

ユーザー設定リストに登録しておけば、 数字の連番のようにオートフィルが機能します。 参考ページをご覧ください。 何個まで登録できるかは未確認です。 IZ(260個)まではいけました。

参考URL:
http://kokoro.kir.jp/excel/user_firu.html
viyamin
質問者

お礼

回答ありがとうございました。 参考にさせていただきます。

関連するQ&A

  • [ユーザー設定リスト]の最大項目数は?

    添付図は Excel 2002 の[ユーザー設定リスト]を示しています。 反転部は私が設定したものです。本来は A,B,C,…,Z,AA,AB,AC,…,AZ,BA,BB,BC,…,IS,IT,IU,IV の 256項目を入力したかったのですが、現実は A,B,C,…,Z,AA,AB,AC,…,AZ,BA,BB,BC,…,IS,IT までの 254個までしか入力できません。 果たして、[ユーザー設定リスト]の最大項目数は 254個と決まっているのでしょうか?仕様として「ヘルプ」の何処かにそのことが明記されていますか?

  • アルファベット版00~99になって00に戻るVBA

    excel2010のVBAに付いてお力を貸してください。 例えばA1セルに「AA」と入っていた場合、マクロを一度実行したらA1を「AB」にしたいです。 最後(ZZ)まで行ったら最初(AA)に戻ります。 AA→AB AB→AC AZ→BA BA→BB ZZ→AA AAA→AAB AAZ→ABA ZZZ→AAA のような形です。 条件としましてはA1には1~8桁まで入る可能性があります。 大文字と小文字が入る可能性があります。(Aaなど混ざることはありません。) If Str = "Z" Then  Str = "A" ElseIf Str = "z" Then  Str = "a" Else  Str = Chr(Asc(Str) + 1) End If 一桁ならこんな感じになると思うのですが、繰り上げや、ZZZからAAAに戻すうまい方法が浮かびません。 よろしくお願い致します。

  • エクセルの関数やマクロで

    A列に以下のように入力したいのですが。 aa ab ac ad ae af 上記のようにアルファベット順で入力して、azまでいったら、今度はbaからbzでまで入力します。そのような感じでzzまで入力していきたいのですが。 この入力作業を、関数やマクロで行なうことは可能でしょうか? おわかりになる方がいましたら教えて下さい。

  • エクセルでアルフアベット自動入力

    エクセルで連番の自動入力でA,B,C,~Z,AA,AB,AC~ というのを簡単に入力したいのですが。 数字だと1と2を入力しコピーのようにずらしていくと連続数字が 入力されていきますが、アルファベットだとオプションのユーザー設定リストに入れた分しか連続になりません。

  • D列に増減を表示したい

    AAからZZまでの増減を計っています。 AAからABになると +1です ABからAAになると -1です AZの次はBAです CZの次はDAです この場合 D列にはどんな計算式が入るのでしょうか?

  • 任意の文字の組み合わせ

    Math::BaseCalc モジュールを使って 10 進数をアルファベットに変換すると、 $ perl -MMath::BaseCalc -le 'print Math::BaseCalc -> new(digits => ['A' .. 'Z']) -> to_base(26);' BA このように 26 -> BA になりますが、これが 26 -> AA となるようなモジュールはないのでしょうか? 0 (A) == 00 (AA) なので、基数変換ならば 26 -> BA で正しいのは分かります。 しかし、文字列的な変換方法を探しています。 別な言い方をすると、A-Z の組み合わせでできる文字列を順番に得たいと思っています。 すなわち、A, B, C, ..., Z, AA, AB, AC, ..., ZZ, AAA のような文字列です。 アルファベットならば範囲演算子 (..) を使って得られますが、任意の digits で同じような文字列を得ることができるようなモジュールはないのでしょうか? (例えば、0-9 A-Z a-z ならば 0, 1, 2, ..., 9, A, B, C, ..., Z, a, b, c, ..., z, 00, 01, 02, ...) 現在は拙作のサブルーチンを使っているのですが、もし定番のモジュールがありましたら、お教え頂きたいです。 ご回答よろしくお願い申し上げます。

    • ベストアンサー
    • Perl
  • エクセルで連続した同じアルファベットを持つ単語を抜き出す

    こんにちは いつもお世話になっています。 エクセルで連続した同じアルファベットを持つ単語のセルを抜き出す方法を教えてください。 A列に英単語があります。例えば、「commit」のように同じアルファベットが連続した部分を持つ単語を抜き出して(選択して?)B列に「重複」の文字を挿入したいのです。 アルファベットの重複は連続していればいくつでも構いませんし、単語のどの部分にあるかも問いません。  よろしくお願いします。

  • エクセルで最後行に入力したデーターを自動で別の(ファイル)シートの任意の場所に自動で転記できるようにしたいのですが・・。

     全くの初心者です。よろしくお願いします。 初心者にもかかわらず無謀にもエクセルで最後行に入力したデーターを自動で別の(ファイル)シートの任意の場所に自動で転記し、上下が逆になる形にしたいと思います。 例) A B C D E F 1 a aa ab ac ad 2 b ba bb bc bd 3 c ca cb cc cd 4 d da db dc dd 行4に d da db dc ddを入力すると A B C D E F E 1 2 3 d da db dc dd 4 c ca cb cc cd 5 b ba bb bc bd          6 a aa ab ac ad          別(ファイル)シートの任意の場所へ挿入する形で転記され、入力のシートとは上下が逆になる。  何かよい方法がありましたら、よろしくお願いします。

  • エクセルの外枠のアルファベットを印刷 もしくは入力したいのですが

    エクセルの外枠の 列のアルファベットごと印刷したいのですが可能でしょうか?? もしくは、一行目のところに、列のアルファベットが abc...aa,ab,ac と入力できればよいのですが。。横に長くデータをいれているので(たてにも長く入っているのですが)手動は少し たいへんなのです・・・ よろしくお願いします。 (当方、マクロ、vbaは???です)

  • エクセルのマクロについて教えてください。

    エクセルのマクロについて教えてください。     a b c d A   1 2 3 4 B  5 6 7 8    ↓    aA1    bA2    cA3    dA4    aB5    bB6    cB7    dB8 という並びになるようにしたいので、よろしくお願いします。

専門家に質問してみよう