TOP > Up > Today

Date:  Tue, 24 Apr 2007 04:35:30 +0900
From:  no@ann.co.jp
Subject:  [pasml 249143] Re: ９行コピー＆縦横変換マクロ
To:  pasml@ann.co.jp
Message-Id:  <200704231935.l3NJZUQO030277@pas2.jp>
X-Mail-Count: 249143

名前: elm BBSから
質問:http://pasokoma.jp/40/lg404266#404315
携帯:http://pasokoma.jp/m?num=404315&ope=v
--
うみさんは 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(&quot;E:I&quot;).Delete Shift:=xlToLeft
Range(&quot;A1&quot;).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(&quot;E:I&quot;).Delete Shift:=xlToLeft
で、E〜Iの列を削除


--
== 掲示板ＵＲＬ： http://pasokoma.jp/bbs ==
   配信の停止： http://pasokoma.jp/taikai
   本メールマガジンへの返信はなさらないで下さい
== 投稿はパソコン困りごと掲示板でお願い致します ===