Excel VBA質問箱 IV

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

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


13673 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   行削除はおいておいて、
前段の J列 文字列データを数値データに変換する処理だけですが
配列内で処理すれば、格段に速くなると思います。

Sub Try1()
  Dim i As Long
  Dim R As Range
  Dim v As Variant
  
  Set R = Range("J2", Cells(Rows.Count, "J").End(xlUp))
  v = R.Value
  For i = 1 To UBound(v)
    v(i, 1) = Val(v(i, 1))
    If v(i, 1) = 0 Then v(i, 1) = Empty
  Next
  R.ClearContents
  R.NumberFormatLocal = "#,##0"
  R.Value = v
End Sub
0 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 発言

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