Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13597 / 76732 ←次へ | 前へ→

【68638】Re:時間をかけずにセルの文字列を値にする方法
発言  kanabun  - 11/3/31(木) 17:01 -

引用なし
パスワード
   ▼ゆかわ さん:

>フィルタにして、見出し以外のデータの範囲の可視データのみ削除という
>ようにしたら成功しました!
>すごく速くなって満足です。

解決されたようでなによりです。

削除行をソートして下方に集め、一括削除する例です。
参考までに

'▼Sort法により J列が0の行を削除
Sub Try2()
  Dim R As Range
  Dim mx As Long, i As Long
  Dim v As Variant, t As Variant
  
  Set R = Range("A1").CurrentRegion
  mx = R.Columns.Count
  v = R.Columns("J").Value
  ReDim t(1 To UBound(v), 1 To 1)
  
  'If Len(v(1, 1)) = 0 Then v(1, 1) = "Dmmy"
  t(1, 1) = "wk"
  For i = 2 To UBound(v)
    v(i, 1) = Val(v(i, 1))
    If v(i, 1) <> 0 Then t(i, 1) = 1
  Next
  With R.Columns("J")
    .ClearContents
    .NumberFormat = "#,##0"
    .Value = v
  End With
  '--------- 作業列で Sortして0の行を下方に集め,まとめて行削除
  With R.Columns(mx + 1)
    .Value = t
    R.Resize(, mx + 1).Sort _
      Key1:=R.Columns(mx + 1), Header:=xlYes
    .SpecialCells(xlBlanks).EntireRow.Clear
    .Clear
  End With
End Sub

1 hits

【68560】時間をかけずにセルの文字列を値にする方法 ゆかわ 11/3/24(木) 18:20 質問
【68561】Re:時間をかけずにセルの文字列を値にする... kanabun 11/3/24(木) 19:14 発言
【68562】Re:時間をかけずにセルの文字列を値にする... kanabun 11/3/24(木) 19:19 発言
【68563】Re:時間をかけずにセルの文字列を値にする... とおりすがり 11/3/24(木) 22:56 回答
【68565】Re:時間をかけずにセルの文字列を値にする... kanabun 11/3/25(金) 10:29 発言
【68564】Re:時間をかけずにセルの文字列を値にする... UO3 11/3/25(金) 9:46 発言
【68611】Re:時間をかけずにセルの文字列を値にする... ゆかわ 11/3/29(火) 10:54 お礼
【68638】Re:時間をかけずにセルの文字列を値にする... kanabun 11/3/31(木) 17:01 発言

13597 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free