９行コピー＆縦横変換マクロ

 ◇-?９行コピー＆縦横変換マクロ-うみ-04/23-22:02(170)-No.404266
 　 ┗?!Re:９行コピー＆縦横変換マクロ...-c-koban-04/23-22:24(169)-No.404271
 　 　 ┗?!~Re:９行コピー＆縦横変換マクロ...-うみ-04/23-23:07(169)-No.404282
 　 　 　 ┗?!~!Re:９行コピー＆縦横変換マク�...-elm-04/24-04:35(163)-No.404315

「何か一言」を書く Facebookコメントができます

▲このページのトップに戻る

404266	９行コピー＆縦横変換マクロ	うみ	2007/04/23-22:02
メーカー名：NEC 日本電気 OS名：WindowsXp パソコン名：LaVie　LL750/G -- 下記のような表があります。　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ　　Ｆ　　Ｇ　　Ｈ　　Ｉ１　１　　春　　桜　　　　　○　　○　　×　　○　　× ２３４５６　２　　夏　　氷　　　　　×　　×　　×　　○　　○ ７８９ 10 11　３　　秋　　風　　　　　○　　×　　×　　×　　○ 12 13 14 15 このような表でＡ１～Ｃ１までを下４行にコピーしてＥ～Ｉに入っているものをＤ列の１～５行まで縦変換して表示したいのですが・・。よろしくお願いします。

▲このページのトップに戻る

404271	Re:９行コピー＆縦横変換マクロ	c-koban	2007/04/23-22:24
記事番号404266へのコメントうみさんは No.404266「９行コピー＆縦横変換マクロ」で書きました。 OpenOfficeCalcでの操作ですがＡ１～Ｃ１までを下４行にコピーするには１．Shiftを押しながらカーソルをA1からC1まで移動させる。２．Ctrl+Cでコピー３．Shiftを押しながらカーソルをA2からC5まで移動４．Ctrl+Vで貼り付け E1～I1に入っているものをD列の1～5行まで縦変換するには１．Shiftを押しながらカーソルをE1からI1まで移動２．Ctrl+Xで切り取る３．カーソルをE1に会わせる４．メニューの【編集】から形式を選択して貼り付けを選択５．［行列を入れ替える］にチェックを入れて【OK】

▲このページのトップに戻る

404282	Re:９行コピー＆縦横変換マクロ	うみ	2007/04/23-23:07
記事番号404271へのコメント c-kobanさんは No.404271「Re:９行コピー＆縦横変換マクロ」で書きました。この表は行数が１００００～２００００ととてつもなく大きくまた、このようなファイルが他に１０件あります。よって、マクロでの作業としたいのですが・・。

▲このページのトップに戻る

404315	Re:９行コピー＆縦横変換マクロ	elm	2007/04/24-04:35
記事番号404282へのコメントうみさんは No.404282「Re:９行コピー＆縦横変換マクロ」で書きました。エクセルのマクロこれでどうでしょう？ Sub 行コピー縦横変換() Dim x As Integer For x = 1 To Step 5 Dim y As Integer y = x + 1 Dim z As Integer z = x + 4 Range(Cells(x, 1), Cells(x, 3)).copy Range(Cells(y, 1), Cells(z, 3)).PasteSpecial Next x Dim a As Integer For a = 1 To Step 5 Dim b As Integer b = a + 4 Range(Cells(a, 5), Cells(a, 9)).copy Range(Cells(a, 4), Cells(b, 4)).PasteSpecial Transpose:=True Next a Columns("E:I").Delete Shift:=xlToLeft Range("A1").Select End Sub To　の後の　　は、シートの最終行を記入 Dim x As Integer For x = 1 To Step 5 Dim y As Integer y = x + 1 Dim z As Integer z = x + 4 Range(Cells(x, 1), Cells(x, 3)).copy Range(Cells(y, 1), Cells(z, 3)).PasteSpecial Next x で、Ａ１～Ｃ１までを下４行にコピー Dim a As Integer For a = 1 To ** Step 5 Dim b As Integer b = a + 4 Range(Cells(a, 5), Cells(a, 9)).copy Range(Cells(a, 4), Cells(b, 4)).PasteSpecial Transpose:=True Next a で、E1～I1に入っているものをD列の1～5行まで縦変換 Columns("E:I").Delete Shift:=xlToLeft で、E～Iの列を削除

パソコントラブル解決・過去ログTOP > ログTOP > ９行コピー＆縦横変換マクロ

何か一言(本ページで参考になったならないを含めて残してあります)
◎：解決　○：参考になった　×：参考にならなかった　！：アドバイスあり

参考	回数	投稿日時	何か一言