For i = Cells(Rows.Count, 8).End(xlUp).Row To 2 Step -1 If Not (Cells(i, 8) <> "集計" Or Cells(1, 8) = "総計") Then Rows("1:1").Delete Shift:=xlUp Next i 0186名無しさん@そうだ選挙にいこう2018/04/30(月) 05:36:18.25>>181 なんでそんな片手落ちなレスすんの? ちゃんとループ含めて書いてあげなよ 0187名無しさん@そうだ選挙にいこう2018/04/30(月) 06:47:15.65>>173
5ch管理者の者です みなさん答えてあげてください、 せっかくの連休です 0188名無しさん@そうだ選挙にいこう2018/04/30(月) 06:47:30.01 For i = Cells(Rows.Count,8).End(xlUp).Row To 2 Step -1 If Not (Cells(i, 8) <> "集計" Or Cells(1, 8) <>"総計") Then Rows(i).Delete Shift:=xlUp Next i 0189名無しさん@そうだ選挙にいこう2018/04/30(月) 06:50:37.45 訂正 For i = Cells(Rows.Count,8).End(xlUp).Row To 2 Step -1 If Not (Cells(i, 8) ="集計" Or Cells(1, 8) ="総計") Then Rows(i).Delete Shift:=xlUp Next i 0190名無しさん@そうだ選挙にいこう2018/04/30(月) 07:47:46.14>>186 そう思うなら自分で書けばいいじゃん 0191名無しさん@そうだ選挙にいこう2018/04/30(月) 11:00:34.16>>187 結構です お断りします 0192名無しさん@そうだ選挙にいこう2018/04/30(月) 11:06:13.37>>190 その、だったら自分で書けば、の返しはやめてもらいたい このスレには質問者と回答者以外にもExcel勉強したくてロムしてる人だっているはず 質問と回答を再現してうまくいかない、回答が知りたいと思ってる人いる ただそのたび横からレスする訳にもいかないと思うし どうしてそんなに捻くれてて上から目線で偉そうなの? 確かに無償で教えて貰うことに厚かましいと言われたらそれまでだけど、だったら自分でやれば、ってできない子供に機嫌を損ねてネグレクトしてるのとちょっと似てる そこまで親切は求めないけど、せめて解決する回答を書くのが回答者としての書き込みのマナーやモラルだと思う わかってるのに書かないのが意地悪だってこと 0193名無しさん@そうだ選挙にいこう2018/04/30(月) 11:10:14.18 勉強する人の為ならなおさら、魚を与えるな 0194名無しさん@そうだ選挙にいこう2018/04/30(月) 11:12:08.91>>192 まぁまぁ。 回答者は確かにひねてるとこはあるな。 でも>>189で再回答してるみたいだし許してやれ。 アンカーつけないあたりみても素直には答えてやんねーよってのが現れてるよなw ほんとは答えるのが好きなのにやってやってるって態度でしかできない可哀想な奴なんだろ。 0195名無しさん@そうだ選挙にいこう2018/04/30(月) 11:13:55.74>>193 ナニサマw お前もう居なくなれば? それでも答えたいならもう少し態度改めろ 0196名無しさん@そうだ選挙にいこう2018/04/30(月) 11:29:53.26 わざわざちょっと足りないコード書くとかって性格出る おそらく職場でも一旦出来たというのは早いのだろうが、その後すぐにやっぱりちょっと修正します、とか言ってるタイプだろう 0197名無しさん@そうだ選挙にいこう2018/04/30(月) 11:30:03.48 もうやめて!私のために争うのはもうやめて! 憎しみからはさらなる憎しみしか生まれないのよ!! 0198名無しさん@そうだ選挙にいこう2018/04/30(月) 11:32:30.30 つーかここも大した回答者がもういないのかな?もしかして。 ここで解決しなかったことググったらサクッと回答出てきたこと何回かあるよ。 だからその上から目線回答者が悪目立ちしてるんじゃない? 0199名無しさん@そうだ選挙にいこう2018/04/30(月) 11:33:06.36>>197 わろた 0200名無しさん@そうだ選挙にいこう2018/04/30(月) 11:37:22.00>>196 そういうタイプはいるさ オーダー内容満たしてないのに早とちりで「出来ました!」と言って速攻突き返されるやつ 早いけど結局遅い、みたいな 0201名無しさん@そうだ選挙にいこう2018/04/30(月) 11:38:41.38 兵は拙速を尊ぶ 0202名無しさん@そうだ選挙にいこう2018/04/30(月) 11:47:43.28 帯に短し襷に長し 0203名無しさん@そうだ選挙にいこう2018/04/30(月) 11:48:47.75 拙速は巧遅に勝る 0204名無しさん@そうだ選挙にいこう2018/04/30(月) 11:49:24.12 プログラムは思った通りに動かない 書いた通りに動く 0205名無しさん@そうだ選挙にいこう2018/04/30(月) 11:51:47.28 もうそろそろ、早けりゃいいっていう意地張るの みっともないからやめときなよ 0206名無しさん@そうだ選挙にいこう2018/04/30(月) 11:53:05.31 雑談スレにいけや 0207名無しさん@そうだ選挙にいこう2018/04/30(月) 11:54:32.52 仕事ができる人と出来ない人の違いを脳科学的にいうと、時間が少しかかっても結果効率よく要求に叶ってる答えを出す人の方が仕事ができる人と捉えるんだってよ 0208名無しさん@そうだ選挙にいこう2018/04/30(月) 11:56:59.88 雑だスレのリンクがクソ 0209名無しさん@そうだ選挙にいこう2018/04/30(月) 12:13:34.96 今、未回答の「答えられる状態の質問」がなくて、みんな暇なんだよ だからどうでもいいような争いが起こる 0210名無しさん@そうだ選挙にいこう2018/04/30(月) 12:15:50.84 でもその割に相談した時の解決率低いんだけど… どゆこと? 0211名無しさん@そうだ選挙にいこう2018/04/30(月) 12:39:48.52 【1 OSの種類 .】 Windows10 【2 Excelのバージョン 】 Excel2016 【3 VBAが使えるか .】 はい(初歩) 【4 VBAでの回答の可否】 可 A列B列をそれぞれオートフィルタで絞ったままC列の可視セルのみに希望の文言をコピーして記載したいです。 1行目は項目列なので可視セルの2行目から最終行までが記載範囲。 可視セルのC列2行目に記載し、下までコピーで引っ張るイメージです。