Results of 1 - 1 of about 1215 for （Mook）
(0.001 sec.)
- [[20150322171936]]
- #score: 9211
- @digest: d577079bf5cae11df29a518a679f514f
- @id: 67561
- @mdate: 2015-03-22T09:28:55Z
- @size: 1706
- @type: text/plain
- #keywords: 度範 (3310), ズメ (2945), ル勉 (2157), 後a (2022), スズ (1925), 決後 (1540), 指南 (1341), 囲コ (1297), 素早 (967), 綺麗 (942), ー後 (896), 日) (855), 〜7 (848), デン (675), integer (648), タ量 (589), 2015 (583), 解答 (565), until (490), 正確 (402), ンデ (392), 歩的 (372), 初歩 (354), に直 (351), 行目 (287), loop (266), （mo (265), デー (256), す!! (245), 並べ (227), ータ (226), mook (217)
- 『ある範囲を選択し列に直す方法』（さかと）
初歩的な質問かもしれません さっそく質問なのですが A列の1〜7行目を列に直しA1のデータはA1、A2のデータはB1、A3のデータはC1のようにしたいです。 更に、A列の8〜14行目をA2、B2、C2とA列の1〜7行目であったデータの下の行に並べたいです。 図にすると 1 2 3 4 5 6 7 8 9 10 11 12 13 14 ↓ 1 2 3 4 5 6 7 7 8 9 10 11 12 13 14 のようにしたいです。 データ量が多く並べ替えを正確に素早く行いたいのでどうかご指南お願いします。 ＜ 使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- 関数でやるのであれば、 B1=OFFSET($A$1,MOD(COLUMN(A1)-1,7)+(ROW(A1)-1)*7,0) をB1:H2 にコピーして、再度範囲コピー後に、「形式を選択して貼り付け」で「値」にした後 A列を削除でどうでしょうか。 （Mook） 2015/03/22(日) 17:53 ---- Sub test() Dim a As Integer Dim b As Integer Dim c As Integer a = 1 b = 1 c = 1 Do Until a = 3 Do Until b = 8 Cells(15 + a, b).Value = Cells(c, 1).Value c = c + 1 b = b + 1 Loop b = 1 a = a + 1 Loop End Sub （スズメ） 2015/03/22(日) 18:00 ---- 解答ありがとうございます!!! 皆さんの方法で試してみます!! （さかと） 2015/03/22(日) 18:01 ---- 解決後ですが、 マクロのコードはインデントを付けた方が良いですよ。 それと、範囲の決まっている Do Loop は For Next に置き換えた方がすっきりします。 こんな感じかな。 Sub test() Dim a As Long Dim b As Long Dim c As Long For a = 16 To 17 For b = 1 To 7 c = c + 1 Cells(a, b).Value = Cells(c, 1).Value Next Next End Sub （Mook） 2015/03/22(日) 18:07 ---- みなさんありがとうございました! 綺麗な表ができました! エクセル勉強してみます! （さかと） 2015/03/22(日) 18:28... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201503/20150322171936.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97018 documents and 608144 words.
訪問者：