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

エクセルで作った表(3列、1000行)
列1 列2 列3
行1 A1 A2 A3
行2 B1 B2 B3
行3 C1 C2 C3


列1
行1 A1
行2 A2
行3 A3
行4 (ブランク行)
行5 B1
行6 B2
行7 B3
行8 (ブランク行)
のようにしたいのですが、方法がわかりません。
1000行あるので、手作業だと大変ですので、何かのツールを使えばできるのではと考えています。
この場合、
(1)エクセルのマクロで、こんな処理(並べ替え)はできますか?
(2)アクセスでこのエクセルシートをインポートして、アクセスのクエリーで処理して
再度エクセルにエキスポートする方法は現実的でしょうか?
それが出来るとしたら、クエリーの何という機能を使えばよいのでしょうか?

恐縮ですが、ご存知の方がいらっしゃいましたら教えて下さい。


●質問者: Dan
●カテゴリ:コンピュータ 学習・教育
✍キーワード:A1 A3 b2 C3 はと
○ 状態 :終了
└ 回答数 : 8/8件

▽最新の回答へ

1 ● garyo
●30ポイント

http://www.vector.co.jp/

Vector:ソフトウェア・ライブラリ&PCショップ

URLはダミーです。

こんな感じでしょうか?

Sub Macro1()

For y = 1 To 1000

For x = 1 To 3

Worksheets(”Sheet2”).Cells((y - 1) * 4 + x, 1) = Worksheets(”Sheet1”).Cells(y, x)

Next x

Next y

End Sub

◎質問者からの返答

ありがとうございました。

マクロで出来るのですね。助かります。

これからマクロの使い方を勉強します。

感謝します。


2 ● jino
●10ポイント

http://www.google.com/

Google

セルのデータだけをコピーして別のシートのA1を選択

ツールバーの貼り付けの右に

下向きの三角があるのでそれをクリックするとベローンと出てきますのでその中から

[行列を入替える]

をクリックで出来ます

◎質問者からの返答

ありがとうございました。

でも、行列を入れ替えるのではないのです。


3 ● きゃづみぃ
●20ポイント

http://www.hatena.ne.jp/awindow?qid=1091595446#

最初に 左端を一列あけてください。

それから

Sub Macro1()

’ Macro1 Macro

’ マクロ記録日 : 2004/8/4

’ Keyboard Shortcut: Ctrl+q

Dim a As Integer

Dim b As Integer

Dim c As Integer

Dim d As Integer

b = 1

c = 2

d = 1

For a = 1 To 1000

Cells(d, 1) = Cells(b, c)

c = c + 1

If c >= 5 Then

c = 2

b = b + 1

d = d + 1

End If

d = d + 1

Next a

End Sub

を実行すればいいでしょう。

◎質問者からの返答

ありがとうございました。

やってみます。


4 ● jino
●0ポイント

http://www.google.com/search?num=50&hl=ja&q=%E5%8B%98%E9%81%95%E...

私の以前の回答が質問の意図を完全に勘違いしてました。見なかったことにしてください。

(>_<)

◎質問者からの返答

了解しました。

わざわざご連絡いただきありがとうございました。


5 ● aki73ix
●30ポイント

http://nifberry.727.net/test/hatena47.xls

マクロが一番手軽でしょう

作ってみました

Private Sub CommandButton1_Click()

Sheets("Sheet1").Select

For I = 1 To 1000

For J = 1 To 3

Sheets("Sheet2").Cells(J + I * 4 - 4, 1).Value = Cells(I, J).Value

Next

Next

End Sub

◎質問者からの返答

ありがとうございました。

大変助かります。感謝感謝です。


1-5件表示/8件
4.前の5件|次5件6.
関連質問


●質問をもっと探す●



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