Results of 1 - 1 of about 19645 for 20�����������������������... (0.004 sec.)
- [[20211005163131]]
- #score: 2682
- @digest: 90994babb43a6b0eb98f9158e712a515
- @id: 89206
- @mdate: 2021-10-06T10:38:16Z
- @size: 2459
- @type: text/plain
- #keywords: 博生 (36067), ン04 (31932), 行メ (24347), ン50 (14320), う02 (14214), （博 (11789), 行ぶ (11311), 行品 (9739), 名cd (9626), メロ (7617), か03 (6506), 行み (4655), 日10 (4581), ん01 (4573), 号10 (4508), ロン (4469), ド読 (3868), バレ (3514), う20 (3450), レバ (2990), 列増 (2674), 生） (2642), か30 (2480), 日み (2405), 列g (2202), 列f (1794), 列e (1398), ぶど (1265), 列d (1093), ん10 (1027), 月4 (992), 列1 (862)
- 『値ある複数行は増やして内容をコピペ。値は順番にコピペ』（博生）
10月1日 10月2日 10月3日 10月4日 みかん 10 10 ぶどう 20 20 20 すいか 30 メロン 50 50 50 50 ↓ ↓ ↓ 10月1日 10月2日 10月3日 10月4日 みかん 10 みかん 10 ぶどう 20 ぶどう 20 ぶどう 20 すいか 30 メロン 50 メロン 50 メロン 50 メロン 50 こんな風にするにはどうすればよろしいでしょうか? ご教授よろしくお願い致します ＜ 使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- VBA お願いします （博生） 2021/10/05(火) 16:58 ---- こんな風ですか? Sub Test() t = Cells(Rows.Count, "A").End(xlUp).Row r = t + 1 Range(Cells(r, "A"), Cells(r + 2, "A")).Value = "↓" r = r + 3 Range(Cells(r, "A"), Cells(r, "E")).Value = Range("A1:E1").Value r = r + 1 For i = 2 To t For j = 1 To WorksheetFunction.CountA(Range(Cells(i, "B"), Cells(i, "E"))) Cells(r, "A") = Cells(i, "A") n = 0 For c = 2 To 5 If Cells(i, c) <> "" Then n = n + 1 If n = j Then Cells(r, c) = Cells(i, c) Next r = r + 1 Next Next End Sub （きまぐれ） 2021/10/05(火) 17:14 ---- 大変ありがとうございました。 （博生） 2021/10/06(水) 16:34 ---- 大変ありがとうございました。 こういう場合はどうしたらよいのでしょうか? VBAご教授願います。 お手数お掛け致します。 よろしくお願い致します。 A列 B列 C列 D列 E列 F列 G列 1行 品名 CD 記号 10/1 10/2 10/3 10/4 2行 みかん 01 A 10 10 3行 ぶどう 02 B 20 20 20 4行 すいか 03 S 30 5行 メロン 04 M 50 50 50 50 ↓ A列 B列 C列 D列 E列 F列 G列 1行 品名 CD 記号 10/1 10/2 10/3 10/4 2行 みかん 01 A 10 3行 みかん 01 A 10 4行 ぶどう 02 B 20 5行 ぶどう 02 B 20 6行 ぶどう 02 B 20 7行 すいか 03 S 30 8行 メロン 04 M 50 9行 メロン 04 M 50 10行 メロン 04 M 50 11行 メロン 04 M 50 （博生） 2021/10/06(水) 16:55 ---- 列増えただけだよね。 コード読んですらいないのバレバレです。 （あほ） 2021/10/06(水) 17:01 ---- 教えていたけませんでしょうか どうかお願いします。 （博生） 2021/10/06(水) 19:38... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/202110/20211005163131.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97012 documents and 608132 words.
訪問者：