Excelについて質問です。


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

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

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

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

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

回答の条件
  • 1人5回まで
  • 登録:2009/03/17 13:34:24
  • 終了:2009/03/24 13:35:04

回答(2件)

id:SALINGER No.1

SALINGER回答回数3454ベストアンサー獲得回数9692009/03/17 14:20:38

ポイント35pt

たぶん、3列ずつにするということだと思うので、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

id:net525

VBAですか。

URL先も見てみます。

ありがとうございます!

2009/03/17 14:31:26
id:Gay_Yahng No.2

Gay_Yahng回答回数724ベストアンサー獲得回数262009/03/17 14:41:22

ポイント35pt

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

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

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

ということかな?

 

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

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

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

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

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

マクロの記録ストップ

 

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

id:net525

そういうことです!

マクロですか。

ありがとうございます!

2009/03/17 15:06:19
  • id:Gay_Yahng
    よく分らないのですが、6列すべて同じ内容という意味でしょうか?
  • id:net525
    >Gay_Yahng さん
    いえ、要は、今ある列を、すべて3列づつに増やしたい、ということです。

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

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

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

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません