TOP > Up > Today

て、訂正・・・

Date:  Sun, 6 Nov 2005 20:45:21 +0900
From:  no@ann.co.jp
Subject:  [pasml 151839] て、訂正・・・
To:  pasml@ann.co.jp
Message-Id:  <200511061145.jA6BjLk12698@ns.pas2.jp>
X-Mail-Count: 151839

お名前   : 白茶　困りごと掲示板から
URL      : 
質問URL: http://pasokoma.jp/?num=305223&ope=v
ツリー: http://pasokoma.jp/cgi/tree.cgi?num=305223
--
白茶さんは No.305213「Re:縦横変換マクロ」で書きました。
>実シートのデータ配置を勘違いしているかも知れませんので、
案の定間違っていました。スマセン。
C列に出すんでしたね。
Sub TEST()
Dim C As Long
C = 1
Do
Cells(C, 4).Select
Range(Selection, Selection.Offset(0, 5)).Select
Selection.Copy
Cells(C, 3).Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=True
C = C + 6
Loop Until Cells(C, 4) = Empty
End Sub
でしょうか？
--
== 掲示板ＵＲＬ： http://pasokoma.jp/ ==
   配信の停止： http://pasokoma.jp/taikai.shtml
   本メールマガジンへの返信はなさらないで下さい
== 投稿はパソコン困りごと掲示板でお願い致します ===
TOP > Up > Today