- ベストアンサー
任意の列指定について
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
Sub try() With ActiveCell.EntireColumn .Copy .Offset(, 1).Insert shift:=xlShiftToRight End With Application.CutCopyMode = False End Sub かな？
その他の回答 (2)
- qualheart
- ベストアンサー率41% (1451/3486)
アクティブなセルがある列を全選択するVBは Columns(ActiveCell.Column).Select です。 あとは、選択したセルをコピーし隣に挿入するVBを続けて書けばOKでしょう。
お礼
ありがとうございました。 みなさんから教えていただいた方法を組み合わせてできました！
- hana-hana3
- ベストアンサー率31% (4940/15541)
コードが解らない時は操作を記録マクロで保存して、コードを修正します。 Columns(ActiveCell.Column).Copy Columns(ActiveCell.Column + 1).Insert Shift:=xlToRight
お礼
ありがとうございました。 みなさんから教えていただいた方法を組み合わせてできました！
関連するQ&A
- 列を指定して貼り付けるとエクセルが重くなる
エクセル初心者です。 仕事の都合で資料を作成しているのですが エクセルの貼り付けで困っています。 一つのセルをコピーして列を指定して貼り付けると 貼り付けてほしい範囲を飛び越えて最下段らしき ところまで貼り付けをしてしまい、 列を指定して貼り付けるたびに フリーズするようになってしまいました。 列を指定せずにマウスで範囲指定しているとものすごい時間が かかるので列を指定したいのですが、なにかいい方法は ないものでしょうか？ お忙しい中恐縮ですが、知恵を貸していただける方はお願いいたします。
- ベストアンサー
- その他MS Office製品
- EXCELで任意の文字列に特定のハイパーリンクを指定する方法
EXCELで任意の文字列に特定のハイパーリンクを指定する方法を探しています。 セルに特定の文字が入っていた場合に 指定した固定のurlをハイパーリンクで指定する事は 可能でしょうか。 例 セル 「ヤフー」 リンク先 「http://yahoo.co.jp 」
- ベストアンサー
- オフィス系ソフト
- 計算式で任意のセルを指定できるようにする
うまく説明できるか自身ないですが…。 Excel2000で、ある計算式（変換式というべきか？）を作りました。 とりあえず、セルA1に数字を入力すると、セルA2に結果が出るように作成しています。（四則演算や、VLOOKUPを使った文字列操作などを複数のセルを介して行い結果を出しています） やりたいことは、最初のターゲットを任意のセルを指定できるようにしたい（計算式を関数のように使いたい）のですが、そんなことは可能でしょうか。
- 締切済み
- オフィス系ソフト
- エクセルでセル内の任意の文字列にのみリンクを貼り付ける方法
エクセルでハイパーリンクを挿入しようとすると、セル内にある全ての文字列が対象になってしまいます。 これをセル内の任意の文字列のみ対象にすることは可能でしょうか？ 基本的なことなのかも知れませんが、どうしても出来ません。 どなたかご回答をお願いいたします・・・。
- ベストアンサー
- オフィス系ソフト
- エクセルを使って、文章の任意の箇所に指定したセルの文字列を代入したいと
エクセルを使って、文章の任意の箇所に指定したセルの文字列を代入したいと考えているのですができるでしょうか？ 例えば、A1セルに 「これはB1です。C1の形をしています。」という文字列を記入したとします。 "B1"と書かれている箇所にはB1セルに書いた文字列が、"C1"と書かれている箇所にはC1に書いた文字列が表示されるようにしたいのです。 アナログな方法としては、文章を区切って、A2セルに「これは」、A3セルに「です。」、A4セルに「の形をしています。」と記入し、任意のセルで＆を使って(文字列結合っていうのでしょうか)、「=A2&B1&A3&C1$A4」とすればできますよね。 ただ、これだと繋げるセルの個数が多い時に効率が悪いのだろうな、と思うのです。 他の方法でもっと効率よく実行する方法がありましたら、どなたかご教授頂けると光栄です。 宜しくお願いいたします。
- 締切済み
- その他MS Office製品
- ユーザーフォームを設定して任意列のデータを他の列（複数）にコピーしたい。
EXCEL VBAについての質問です。 初心者です。宜しくお願い致します。 使用環境はWindows 2000 service pack4 Excel 2000. ＝質問＝ VBAのユーザーフォームで任意列のデータを他の列（複数）に コピーしたい。 あるシートにIndirectによる選択肢を沢山設けた表を作成して います。 例えば１つ目のデータは、 A1,A3,A5,A7,A9・・・A21にindirect関数が設定されそれぞれ 選択できるようになっている。（偶数行は見栄えのためのスペ ース。A1,A3,A5,A7,A9・・・A21は全て異なる選択肢。） ２つ目のデータ列は都合上C1,C3,C5,C7,C9・・・C21となって いる。 このデータがA、C、E、G、I、J、K列と約４０列並んでいる。 A列で選択したデータを任意の列（例えばE、G、I)に一括でコ ピーしたい。 もちろんコピー元となるA列はCやE列になったりすることもあ ります。 VBAを使って一つ隣の列をコピーするボタンを作ることはでき ましたが、ボタンが約４０個もあること、作業性が良くないこ とからユーザーフォームを使って任意の列（列全体ではなくA1,A3,A5,A7,A9 ・・・といった飛び飛びのデータ）を任意の複数の列にコピー させたい。 各列の飛び飛びのデータを変数で返してあげて、指定した列（ 表示的には配列番号２～５といった表現）にコピーするにはど のようにVBAを組めばよいでしょうか？ 以上、お手数をお掛けしますがご教授の程宜しくお願い致しま す。 p.s 本来ならサンプルをつくって質問すべきですが私用PCにはExcel が入っておらず、会社からは外部へアクセスできない環境なの で言葉のみで説明させていただきました。 理解しにくい部分があれば追記しますので何卒宜しくお願い致 します。
- 締切済み
- Visual Basic
- 任意のセル・列を色づけしたい
エクセルで任意のセルまたは列（縦・横）を任意の色に塗りつぶしたいのですが、できますか。 詳しい方、お願いします。 Ｗｉｎ98 エクセル2000
- ベストアンサー
- オフィス系ソフト
- あるセルが”任意文字列”の時、隣のセルを塗りつぶす
Windows XP上のExcel97（古いですね・・・）を使っています。 あるセルが任意文字列の時、隣のセルを任意の色で塗りつぶしたいのですが そのようなことが可能でしたら方法を教えてください。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- EXCELマクロ：列の指定を数値で表現できますか？
Excel2000を使用しております EXCELの任意列の挿入、およびオートフィルを行なう関数を作成しようと思ったのですが、 オートフィルのメソッドの場合、 Columns("D:D").AutoFill Destination:=Columns("D:E"), Type:=xlFillDefault と、列を指定する場合、英字で指定しなければならないようで、 これを今回作成する関数の引数で渡された数値(2列目を3～10列目までオートフィル） で行ないたいと思っております。 列を数値で表現するにはどのようにすればよいのでしょうか。 ご回答をよろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- EXCEL: セルの先頭に任意の文字列を入れる
Excel2013 Excelのセルに入力された文字列の先頭に、任意の文字列を入れたいのですが、どのような方法があるでしょうか？ マクロが必要でしたら記述をお願いします。マクロが不要な方法があれば、なお便利です。 文字列は１～３文字程度で任意なものを入れたいのですが、既存セルの先頭に入れるだけです。ただ適用セルが数千あるため、手作業を避けたいと考えています。
- ベストアンサー
- Excel（エクセル）
お礼
ありがとうございました。 最終的に文字列を数値に変換したかったので、 みなさんから教えていただいた方法を組み合わせてできました！