Excelについて質問です。

Question

net525

65

65もっと見る

70pt

ビジネス・経営コンピュータ

Excelについて質問です。

現在、列１に書かれている内容を、列２と列３にもコピーして、３列が同じことが書かれているようにして、
現在、列２に書かれている内容を、その続きに、３列が同じことが書かれているようにして、
現在、列３に書かれている内容を、その続きに、３列が同じことが書かれているようにして、

・・・といった感じで、一気にコピーしていきたいのですが、

こういったことはそもそも出来ますでしょうか？

出来るならば、方法を教えていただけませんでしょうか？

よろしくお願い致します。

回答の条件

1人5回まで

登録：2009/03/17 13:34:24
終了：2009/03/24 13:35:04

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

Gay_Yahng 2009/03/17 13:53:15

よく分らないのですが、6列すべて同じ内容という意味でしょうか？
net525 2009/03/17 14:32:02

＞Gay_Yahng さん
いえ、要は、今ある列を、すべて3列づつに増やしたい、ということです。

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

SALINGER · Answer 1 · 2009-03-17T14:20:38+09:00

たぶん、３列ずつにするということだと思うので、VBAで

Option Explicit

Sub test()
    Dim lastCol As Integer
    Dim i As Integer
    
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    For i = lastCol To 1 Step -1
        Columns(i).Copy
        Columns(i + 1).Insert shift:=xlToRight
        Columns(i).Copy
        Columns(i + 1).Insert shift:=xlToRight
    Next
    Application.CutCopyMode = False
End Sub

VBAとはなんぞやという方は、こちらを参考に

http://www.officepro.jp/excelvba/ini/index1.html

http://www.officepro.jp/excelvba/ini/index2.html

http://www.officepro.jp/excelvba/ini/index3.html

Gay_Yahng · Answer 2 · 2009-03-17T14:41:22+09:00

3列の内容を7～9列にコピー

2列の内容を4～6列にコピー

1列の内容を1～3列にコピー

ということかな？

これだけならマクロの記録でもできます。

マクロの記録をスタートして、

3列目を選んでコピー、7～9列に貼り付け

2列目を選んでコピー、4～6列に貼り付け

1列目を選んでコピー、1～3列に貼り付け

マクロの記録ストップ

次からはマクロの実行でできます。

Excelについて質問です。

回答（2件）

SALINGER34549692009/03/17 14:20:38

Gay_Yahng724262009/03/17 14:41:22

コメント（2件)

この質問への反応（ブックマークコメント）