Gizport
1 回答
0
Share (facebook)
187
view
全般

エクセルで、シート1に条件を指定して抽出したデータが表示されていて、...

エクセルで、シート1に条件を指定して抽出したデータが表示されていて、これを、担当者別の出力用シートにコピーしたいと考えています。 シート1にはA~F列までデータがあり、コピーしたいのはA~C列までです。

出力用の担当者別シートは、用紙が横方向に設定してあり、行数が1~30行で、列数はA~N列までとなっています。

仮に、シート1にAさんのデータが70件あった場合、シート1からAさん専用シートへコピーするとして、1行目は項目名が表示されているので、A2から縦方向にA30へコピーしたら、次のデータをD2から縦方向にD30へコピーし、残りの12件分のデータをG2からG13へコピーするというカンジにしていきたいと考えています。

上記の、指定された行までコピーしたら、隣の列の頭からまたコピーをする…という内容をマクロで作成できたらいいなぁと思うのですが可能なのでしょうか?

縦方向から横方向にコピーをさせるという内容が書かれたものをネットで見つけましたが、私の場合は、縦方向にコピーし、用紙範囲内の最終行にきたら、隣の列に移動してコピーを続けるという内容のため、求めているものではないので、こちらに質問しました。

どなたか教えて下さい。
Yahoo!知恵袋 3714日前
コメントする
お気に入り
1
質問者が選んだベストソリューション
いくつか疑問点があります。

1.シート1のどこに担当者の情報があるのでしょうか。

2.>担当者別シートは、行数が1~30行で、列数はA~N列
A~N列は3の倍数になっていません。L列かO列までのはず。

以上を考慮せず、一人の担当者だけのマクロを提示しますので、参考にして下さい。
シート1をSheet1、担当者のシートをSheet2としています。
標準モジュールに下記を。

Sub Macro()
Dim i As Long, imax As Long
Dim j As Integer, k As Integer
Application.ScreenUpdating = False
Sheets("Sheet1").Select
imax = Cells(Rows.Count, 1).End(xlUp).row
k = 1
For i = 2 To imax
For j = 1 To 30
Sheets("Sheet2").Cells(j, k) = Sheets("Sheet1").Cells(i, 1)
Sheets("Sheet2").Cells(j, k + 1) = Sheets("Sheet1").Cells(i, 2)
Sheets("Sheet2").Cells(j, k + 2) = Sheets("Sheet1").Cells(i, 3)
i = i + 1
Next
i = i - 1
k = k + 3
Next
Application.ScreenUpdating = True
End Sub

行数、列数とコントロールするには、変数を操作できないとなりません。
Yahoo!知恵袋 3713日前
シェア
 
コメントする
 

参考になったと評価
  このQ&Aは参考になりましたか?

Share (facebook)
その他の解決方法を知っていますか?
回答する
全般
35
Views
質問者が納得Advanced OpenGLはONにしてください あと、グラフィックは処理優先にしてください ちゃんと設定してもグラフィックが描画優先なら重くなります あと、optifineの設定はきちんとしましたか? optifineは設定項目を追加するmodであり 設定次第で重くも軽くもなりますよ? そのFPSは多分妥当ですよ 止まってたり、すでに読み込んだとこならギリ50~60いくと思いますが 動いてるとFPSは30くらいが普通かもしれないです 普通に遊ぶ用に細かい設定をしてください 描画距離は実際f...
3713日前view35
全般
20
Views
質問者が納得いくつか疑問点があります。 1.シート1のどこに担当者の情報があるのでしょうか。 2.>担当者別シートは、行数が1~30行で、列数はA~N列 A~N列は3の倍数になっていません。L列かO列までのはず。 以上を考慮せず、一人の担当者だけのマクロを提示しますので、参考にして下さい。 シート1をSheet1、担当者のシートをSheet2としています。 標準モジュールに下記を。 Sub Macro() Dim i As Long, imax As Long Dim j As Integer, k As...
3714日前view20
全般
27
Views
質問者が納得月々サポートが7月利用分への適用で終了したからですよ。 F-10Dだと2500円位だったと思います。 10年超回線だと基本料が2年間無料のキャンペーンなどもあったかも知れません。(その時期はまだキャンペーン前だったかも知れませんが)
3715日前view27
全般
54
Views
質問者が納得ELECOMは 192.168.2.1 又は、 http://192.168.2.1/ ユーザー名 admin パスワード admin OK でルーター設定・管理画面に入れます。 ルータとパソコンとの接続について http://qa.elecom.co.jp/faq_detail.html?id=3118 フレッツ光等でPPPoE接続の場合、パソコンからPPPoE設定を削除してください。 Gateway SX2110-F12D/はデスクトップPCなので別途無線LAN子機やイーサーネットコンバ...
3780日前view54
全般
42
Views
質問者が納得参考に挙げられていたサイトのコードを元にして全体的に書き換えてみました。 よろしければどうぞ。 http://pastie.org/9424625 一応の動作確認は行いましたが、念のため、そちらでもお願いします。 ほぼ跡形も無いほど改造しましたが著作権は主張しません。 ご不明な点がございましたらどうぞ。
3782日前view42

取扱説明書・マニュアル

1056view
http://www.nttdocomo.co.jp/.../F-12D_J_02.pdf
116 ページ13.50 MB
もっと見る

関連製品のQ&A