![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.8ベストアンサー
- 回答日時:
こんにちは
VBA処理に組み込まれているのでしょうか、
処理スピード、デバッグは確認していませんけれど
.clear と言う事で
As Stringで大丈夫と思いますが、、ダメなら見直してください。
Dim srchR As Range, rr As Range
Dim keyItem As String
Dim Ary As Variant
Dim i As Long, j As Long
keyItem = 0
Set srchR = Range("E4:Q8000")
Ary = srchR
For i = 1 To UBound(Ary)
For j = 1 To UBound(Ary, 2)
If Ary(i, j) = keyItem Then
If rr Is Nothing Then
Set rr = srchR(i, j)
Else
Set rr = Union(rr, srchR(i, j))
End If
End If
Next j
Next i
If Not rr Is Nothing Then rr.Clear
No.7
- 回答日時:
こんばんは。
検索したところ、一般機能でも、幾つかの操作でできる様です。
検索した記事を載せておきます。
https://did2memo.net/2013/09/03/excel-delete-zer …
No.5
- 回答日時:
No.1
- 回答日時:
こんばんは。
配列内で処理して、それを戻すとかでしょうか?
0を、空の文字で良ければ、下記でどうでしょうか?
Sub TEST()
Dim myAllDat As Variant, I As Long, J As Long, myRng As Range
Set myRng = Range("E4:Q8000")
myAllDat = myRng.Value
For I = LBound(myAllDat) To UBound(myAllDat)
For J = LBound(myAllDat, 2) To UBound(myAllDat, 2)
If myAllDat(I, J) = 0 Then
myAllDat(I, J) = ""
End If
Next J
Next I
myRng.ClearContents
myRng.Value = myAllDat
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ワードにて スペースを全て改行...
-
サクラエディタで連続改行を処...
-
特定の文字を含む行だけ抽出す...
-
空白スペースをタブに置換する方法
-
Accessでの置換
-
文字+改行コードの置換について
-
テキストに縦に並んでいるデー...
-
CSVファイルをエクセルで開いた...
-
秀丸の正規表現で文字列を切り...
-
置換でピリオドを一括削除出来...
-
秀丸で指定した文字が入ってい...
-
正規表現の置換で数値のみを抽...
-
秀丸の正規表現(1バイト文字,2...
-
Win8.1お勧めのテキストエディ...
-
Jedit X でエスケープ文字の置...
-
句読点ごとに段落がついていな...
-
テキストファイルで改行に置換...
-
秀丸で改行コード"[CR]"を変換...
-
Google form グーグルフォーム...
-
「ドゥ」の簡単なローマ字入力方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ワードにて スペースを全て改行...
-
テキストファイルで改行に置換...
-
【ExcelVBA】ダブルクォーテー...
-
Accessでの置換
-
特定の文字を含む行だけ抽出す...
-
正規表現の置換で数値のみを抽...
-
サクラエディタで連続改行を処...
-
置換でピリオドを一括削除出来...
-
ワードで各行の先頭に文字列を...
-
空白スペースをタブに置換する方法
-
WordVBA 置換処理での改行文字...
-
文字+改行コードの置換について
-
テキストに縦に並んでいるデー...
-
ワード2010 ひらがな 削除
-
秀丸で指定した文字が入ってい...
-
LibreOfficeのWriterで特定の文...
-
NotePad++ 改行された文を改行...
-
CSVファイルをエクセルで開いた...
-
不要な改行を一括削除する方法
-
秀丸で改行コード"[CR]"を変換...
おすすめ情報