[過去ﾛｸﾞ] Excel総合相談所 136 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
929: 2019/10/02(水)20:11 AAS
あ、質問か見間違い
930: 925 2019/10/02(水)20:13 AAS
>>926
ありがとうございました。
文字化けですか。
931: 2019/10/03(木)04:42 AAS
最近よく見るけど、￥記号、〜記号、ハイフン、半角スペースなど一部の記号だけがなぜかユニコード文字になってるWEBサイトやデータがけっこうあって、コピペやエクスポートすると必ず文字化けするんだよなあ
スマホやタブレットからデータ入力すると、日本語入力エンジンのデフォルトの優先順位の関係でユニコードが選ばれてしまうらしいんだけど、修正の手間が増えて地味に困ってる
932(3): 2019/10/03(木)14:04 AAS
Ｇ列の２行目以降でセルの値が１０００であれば、その行を行ごと削除したくて
これを試したのですが、エラーになります
Columns("7").AutoFilter Field:=7, Criteria1:="=1000"
Range(Range("G2"), Range("G" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Selection.AutoFilter
それと同じようにＡ列の２行目以降で"５９″であれば行を削除するためにこれをつかいたいのですが
１行目がなくなり、AutoFilterが解除されないです。
Columns(1).AutoFilter Field:=1, Criteria1:="=59"
Range(Range("A2"), Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Selection.
省1
933: 2019/10/03(木)16:53 AAS
マグレだとしても…
934(1): 2019/10/03(木)19:19 AAS
>>932
1行目からおかしいね
935(1): 2019/10/03(木)19:40 AAS
>>932
オートフィルターに頼らない方が良い
あれは微妙に挙動がややこしい
Sub Macro1()
For i = Cells(Rows.Count, 7).End(xlUp).Row To 2 Step -1
If Cells(i, 7).Value = 1000 Then
Rows(i & ":" & i).Delete Shift:=xlUp
End If
Next
End Sub
936(1): [932] 2019/10/03(木)20:24 AAS
>>934
どこの部分ですか？
>>935
これを使ったのですが、時間がかかるもので、オートフィルターを使おうと思いました。
937: 2019/10/03(木)20:28 AAS
>>936
Columns(7)
938(1): 2019/10/03(木)21:13 AAS
遅いなら配列に入れるとか。
Sub Macro1()
tmp = Range("G1:G" & Cells(Rows.Count, 7).End(xlUp).Row).Value
For i = Cells(Rows.Count, 7).End(xlUp).Row To 2 Step -1
If tmp(i, 1) = 1000 Then
Rows(i).Delete
End If
Next
End Sub
939: 2019/10/03(木)21:15 AAS
まあ最速はアドバンスフィルタかSQLだと思うけど。
940: 2019/10/03(木)21:17 AAS
遅い一番の原因は行削除の繰り返しなんだから
941: 2019/10/03(木)21:22 AAS
>>932
Columns("G").AutoFilter Field:=1, Criteria1:="1000"
Row = Range("G" & Rows.Count).End(xlUp).Row
If Row >= 2 Then Rows(2 & ":" & Row).Delete
Columns("G").AutoFilter
942: [932] 2019/10/03(木)22:36 AAS
>>938
ありがとうございますm(__)m
早くなりました。
943(1): 2019/10/03(木)22:40 AAS
マクロって結果をシートに代入させると遅くなるのかな
1列のみの50行の範囲、検索数18個（for〜）の条件で
合えば、セルに色を付ける作業でも目でわかる速さでポツン、ポツンって色が付く
944: 2019/10/03(木)22:49 AAS
>>943
表示に関わる処理は遅い
でもセルに値や式を入れるのなら1回で一気にやれば一瞬
945(1): 2019/10/03(木)22:51 AAS
色が付いていく様子が見えると言うことは表示切ってないだろうから、
screenupdatingを切れば50行程度ならマシになるんじゃね
946(1): 2019/10/03(木)23:11 AAS
>>945
画面の切り替えはないから速度変化はないと思うけどscreenupdatingは別のマクロで使えそうなので感謝
947: 2019/10/03(木)23:15 AAS
>>946
画面の切り替えではなく、描画をONOFFする命令だよ
948(1): 2019/10/04(金)07:02 AAS
指定したセル範囲内に、異なる2つ以上の値(ブランク含まない)があればtrueを返す、VBAプログラムを教えてください。
上下前次1-新書関写板覧索設栞歴
あと 54 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.013s