人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excelについて質問です。

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

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

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

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

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


●質問者: net525
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:Excel コピー 現在
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● SALINGER
●35ポイント

たぶん、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

◎質問者からの返答

VBAですか。

URL先も見てみます。

ありがとうございます!


2 ● Gay_Yahng
●35ポイント

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

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

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

ということかな?

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

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

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

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

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

マクロの記録ストップ

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

◎質問者からの返答

そういうことです!

マクロですか。

ありがとうございます!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ