- ベストアンサー
エクセルのプログラミングコードについてです。
kanemoto_sの回答
#2 すみません。 (1) Do While ActiveSheet.Cells(ActiveSheet.Rows.Count, 5).End(xlUp).Row <= Column (2) Do While ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row <= Column (3) ActiveSheet.UsedRange.row + ctiveSheet.UsedRange.Rows.count - 1 <= Column (4) ActiveSheet.UsedRange.Item(ActiveSheet.UsedRange.Count).Row <= Column の間違いでしたね。(>_<)
関連するQ&A
- エクセルで2つの列を1つの列に
エクセルで2つの列の電話番号データを1つの列に並べて表示する事は可能ですか? ただし1行に2つの列に電話番号が入っている場合は最初の列に入っているデータを使用したいのですが? 使用しているバージョンはoffice2010です。 例のようにデータAをデータBの様に変換したいのです。宜しくお願い致します。 【データA】 A B 090-1111-2222|空欄 03-1111-2222 |080-1111-2222 080-2222-3333|空欄 空欄|090-4444-5555 【データB】 A B C 090-1111-2222| 空欄|090-1111-2222 03-1111-2222 |080-1111-2222|03-1111-2222 080-2222-3333|空欄 |080-2222-3333 空欄|090-4444-5555 |090-4444-5555 このように変換したいので、よろしくご指導ください。
- ベストアンサー
- その他MS Office製品
- コードFrom To値を1コードづつにしたい
こんにちは。下記のように登録されているコードを1レコードづつに並べたいのですが、知恵が出ません。 できればExcelだけを利用して解決したいと思っております。 どなたか良い解決方法を教えてください。 テーブルデータ A列 B列 C列 グループ コードFrom コードTo ----------------------------- A1 1 5 A1 200 250 B1 10 25 B1 100 150 求めている結果 A列 B列 グループ コード ------------------- A1 1 A1 2 A1 3 A1 4 A1 5 A1 200 A1 201 ・ ・ ・ よろしくお願いします。
- ベストアンサー
- その他(プログラミング・開発)
- エクセルのVBAについて
エクセルのVBAに詳しい方がいらっしゃれば、助けて頂きたい事がございます! ・Sheet1(以下S1と記載)の、1列目に、A1セルより、項目として、「ID、地区、住所、電話番号、資産名、耐用年数、取得日」が記載(=S1は項目のみ) ・Sheet2(以下S2と記載)の、1列目に、A1セルより、項目(住所、設備、資産名、区域、備考)と2列目以降にそのデータが記載 【やりたいこと】 S1の項目と完全一致するS2の項目(上記では、住所、資産名のみ)の2列目以降のデータを、S1の2列目以降に張り付ける作業を自動化するコードを書きたいのですが、上手くいかず・・・ どなたかコードを記載して頂けないでしょうか?また下記の前提を考慮したコードであると、なお助かります! 【前提】 ・「S1の項目が空欄にぶつかったら、検索を終了」という事をループに入れる(S1の項目数は変動するため) ・「S2の2列目以降の全てのデータをS1に張り付ける」という事をコードに入れる(S2の2列目以降のデータの列数も変動する且つ途中に空欄も含むため) ・S1の「地区」に、S2の「区域」を反映できるようなコードを入れる 宜しくお願いいたします_(._.)_
- ベストアンサー
- Visual Basic
- エクセルVBAのコードを簡単に表現したい
お世話になっています。 エクセルVBAでコードを書いたのですが、なにぶん初心者のためゴテゴテしたものになってしまいました。 A列にはA2からA11まで15文字以内の文字列が入っています。 同じ行のB列からP列に、濁点も1文字として1セルに1文字づつ抜き出すようにコードを書きました。 以下です。 Sub test() Dim i As Integer Dim m As Integer Dim s1 As Worksheet Set s1 = Sheets("sheet1") For i = 2 To 11 For m = 1 To 15 変換 = s1.Cells(i, 1) 変換 = StrConv(変換, vbKatakana) 変換 = Application.WorksheetFunction.Asc(変換) 変換 = Mid(変換, m, 1) 変換 = StrConv(変換, vbWide) s1.Cells(i, m + 1) = StrConv(変換, vbHiragana) Next Next End Sub そこで質問なのですが、上記のコードをもっとスマートに表現するとどのようなコードになるのでしょうか。(特に「変換」が連なっているところ) よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのマクロについて質問です。
あセルを選択すると、その列の行を一番下まで書き出すようにしたいと思っています。 A1セル=ひらがな E2セル以降=書出し B列 ひらがな ←タイトル(B1セル) あいうえお かきくけこ さしすせそ C列 カタカナ←タイトル(C1セル) アイウエオ カキクケコ サシスセソ D列 英文字←タイトル(D1セル) abcd efgh ijkl 縦になっててちょっと見づらいですが、このような場合、A1の“ひらがな”というワードが入っていて、マクロを実行するとその下の行である “あいうえお” “かきくけこ” “さしすせそ” と、E2以降に表示するようにしたいのですが、どのように考えてコードにしたらいいのか分からないので教えていただけないでしょうか。
- ベストアンサー
- オフィス系ソフト
- Excelでひらがなを半角カナに変換
ExcelでA列にひらがなで書かれた名前があるとします。これを、B列に半角カナへ変換するにはどうしたらよいのでしょうか?簡単にできますか?ご存知の方、よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- エクセルでコードが一致するものをチェックしたい
エクセルの関数について質問です。 sheet1のA列に8桁のコードが入っています。(例 001-011-SA) sheet2のA列には3桁のコードが入っています。(例 001) sheet1のA列の頭3ケタとsheet2のA列のコードが一致するものに、チェック(○か何か)を入れたいのですが、どのような関数になりますでしょうか。 よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルのうまい使い方教えてください
次のようなことをエクセルでやりたいと思っています。効率的な操作の仕方があれば、教えてください。 英単語帳を作りたいと思います。 エントリーさせる単語は決まっていて、数百あります。 これらの単語は、ワードに打ってあります。ただし、これは品詞などの属性はバラバラです。 このワード上の単語を1列にして、縦長のものをエクセルにコピペします。すると、単語の数だけの列が埋まります。 これらの単語を、属性ごとに整理したいのです。つまり、名詞なら名詞だけを1か所に集め、また動詞なら動詞だけを分類したいのです。 この並べ替えを、いちいち単語1つごとにドラッグドロップして並べ替えるのではなく、何かエクセルのソート機能のようなものを使って、自動的にやる方法はないでしょうか。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
お礼
こちら打ち込ませていただきましたがうまくいかず… 又改めて質問投稿させていただくかもしれませんが、1番丁寧に詳しくご説明いただきましたのでこちらの方をベストアンサーにさせていただきます。 ありがとうございました。