Results of 1 - 1 of about 1215 for （Mook）
(0.002 sec.)
- [[20150519215254]]
- #score: 9211
- @digest: 7cabde4deed153e9bc874ec9f6076506
- @id: 68022
- @mdate: 2015-05-21T12:13:22Z
- @size: 2522
- @type: text/plain
- #keywords: 列少 (6272), ゴ3 (4747), んx (4605), ゴ2 (4577), 応頂 (3038), ンゴ (2757), 列挿 (2695), ゴ1 (2467), 右隣 (1624), う[ (1582), 「み (1292), 終列 (1195), 白列 (1192), 入、 (919), 残念 (877), ん1 (857), 列方 (827), 行方 (802), 最終 (765), 終行 (643), リン (629), りこ (561), みか (525), に列 (519), 方向 (487), 挿入 (451), unknown (440), かん (421), 解釈 (397), 作業 (392), 隣の (370), ピー (335)
- 『行方向と列方向のコピー』（りこ）
こんばんは。お世話になります。 A B C D E F みかん1 みかん1 みかん2 みかん2 みかん3 みかん3 **** #### **** #### **** #### 上のような表があり、A列に列挿入、B1の「みかん1」をA1からA500までコピー、 D列に列挿入、E1の「みかん2」をD1からD600までコピー、というように、 2列ごとに列挿入、一行目の右隣の「みかんx」）をその列の一番下 （右隣の「みかんX」の最終行までコピー、とういう作業を行っています。 ですが、最終列が200列から300列、最終行は50から500まであり、 また、一つのファイルに10シートほどあり、全部に同じ作業をする必要があり、 手作業でやっているのですが、なかなかはかどりません。 全てのシートは最終列、最終行がそろっていません。 また、別のファイルでも1列少ない表で同様の作業を行う必要があり、困っています。 A B C D E リンゴ1 リンゴ2 リンゴ2 リンゴ3 リンゴ3 **** **** **** **** **** マクロで行いたいのですが、ご教授いただけないでしょうか。 宜しくお願いします。 りこ <Excel2010, OS:Windows7> ＜ 使用 Excel:unknown、使用 OS:unknown ＞ ---- こんなことでしょうか。 後者の例では、 c = c + 3 を c = c + IIf(c = 1, 2, 3) にしてください。 Sub Sample() Dim c As Long c = 1 Do While Cells(1, c).Value <> "" Columns(c).Insert Cells(1, c).Resize(Cells(Rows.Count, c + 1).End(xlUp).Row, 1) = Cells(1, c + 1).Value c = c + 3 Loop End Sub （Mook） 2015/05/19(火) 23:15 ---- Mookさん、りこです。 残念ながら、お教え頂いたコードはD列が空白列、他の列は全てC1のコピーになりました。 ですか、お忙しい中ご対応頂き、とても嬉しかったです。 ありがとうございました。 （りこ） 2015/05/21(木) 20:44 ---- あらら、それは残念ですね。 一応こちらでは動作するのを確認したのですが、1行目は数式が入っていたりしたでしょうか。 確認ですが、 [A] [B] [C] [D] [E] [F] [G] [H] [I] [1] あ あ い い う う [2] 11 21 31 41 51 61 [3] 12 22 32 42 52 62 [4] 13 33 43 63 [5] 14 44 は [A] [B] [C] [D] [E] [F] [G] [H] [I] [1] あ あ あ い い い う う う [2] あ 11 21 い 31 41 う 51 61 [3] あ 12 22 い 32 42 う 52 62 [4] あ 13 い 33 43 63 [5] あ 14 44 となるという解釈でよいでしょうか。 （Mook） 2015/05/21(木) 21:13... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201505/20150519215254.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97018 documents and 608144 words.
訪問者：