基本的なことだと思いますが、すみません。
置換するときに、空白のセルを全部選択して、そこにある文字列を入れたいのですが、
空白のセルはどうやって選択すればよいのですか?よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

対象の範囲を選択しておいて、


「編集」-「ジャンプ」で、『セルの選択』の“空白セル”をチェックしてOKを押すと空白セルが選択された状態になります。
    • good
    • 1
この回答へのお礼

おっしゃる方法で、空白セルが選択できました。
その後、コントロール+エンターで一度に全部入力できました。
ありがとうございました。

お礼日時:2001/05/18 14:00

>この方法ですと、データがありませんとなって出来なかったんです。


「ジャンプ」-「セル選択」でも「該当するセルがありません」となるのでは?
(excel2000はそうなります)
(新規のシートで範囲を選択して「ジャンプ」-「セル選択」してみて下さい)

>対象の範囲を選択しておいて
データが入力されている範囲内であれば可能ですが越えた範囲を選択しても選択され
る空白セルは
データ入力されている範囲内だけです。
(Ctrlキー+endキーで移動したセルまでがデータが入力されてる範囲とみなされま
す)

ですから、前回も書きましたが
10行以降が空白行(未使用)だけど15行まで「置換」や「ジャンプ」をさせたいので
あれば15行目のセルに何か入力して削除する。
(一度でもセルを使用するとセルの内容を削除してもここまではデータ入力に使って
ると認識する)
    • good
    • 1
この回答へのお礼

そのようにやってみます。
締切後にもかかわらず、ご親切にありがとうございました!!

お礼日時:2001/05/24 00:00

>空白のセルはどうやって選択すればよいのですか


選択というのが良く分かりませんが・・・。
置換えする方法でしたら
「編集」-「置換」のダイアログ表示で「検索する文字列」に何も入力しないで
「置換する文字列」だけ入力し、「すべて置換」をクリック。
1つずつ確認しながら置き換えたいのであれば「置換」をクリック。
置換たくない時は「次を検索」でセルを飛ばす。

☆データが入力されている範囲の右下隅のセル (A1 などのワークシートの先頭のセルに対する反対側のセル) までしか置換えをしません。

仮にM30のセルまで置換えさせたいけどM25までしかデータ入力に使ってない
という場合ならM30にスペースでも文字でも何でも良いので入力します。
(こうすると最終データがM30までとなるので置換する事が出来ます。)

こういう意味でないということでしたら補足してください。
    • good
    • 0
この回答へのお礼

回答ありがとうございます。


> 「編集」-「置換」のダイアログ表示で「検索する文字列」に何も入力しないで
>「置換する文字列」だけ入力し、「すべて置換」をクリック。

この方法ですと、データがありませんとなって出来なかったんです。
セルにデータがある場合しかだめなのかなと思っておりました。
もう一度試して見ます。ありがとうございました。

お礼日時:2001/05/18 13:59

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q0のときは空白、空白のときも空白を返す式について

あるセルの値が0のときは空白に空白の時はそのまま空白を返す関数はどのようにすればいいでしょうか?
たとえばIF計算式で0名の場合の答えは0ですがそれを空白にしたいと思います。
さらに空白のときも空白にしたいので=IF("","",C4/D6)という関数は使えないと思いますが、
どのような式にすればよいでしょうか。
宜しくいお願い致します。

Aベストアンサー

要は「0なら空白にして、それ以外はそのまま」って事です。

「空白なら空白」は「空白ならそのまま」と同じ意味です。

場合分けすると

0の時⇒空白

空白の時⇒空白(つまり、そのまま)

0でも空白でもない時⇒そのまま

なのですが

空白の時⇒空白(つまり、そのまま)

0でも空白でもない時⇒そのまま

の2つは、結果が「そのまま」なので、1つに出来ます。

つまり

0の時⇒空白

0でない時⇒そのまま

って事になる訳です。

IF関数を使えば

=IF(とあるセル<>0,とあるセル,"")

と言う式になるでしょう。

>さらに空白のときも空白にしたいので=IF("","",C4/D6)という関数は使えないと思いますが

割り算で困るのは、割る数が空白か0の時です。

そうすると

=IF(D6<>0,C4/D6,"")

と言う式のみで充分です。

D6が空白の場合、D6<>0と言う評価式は「偽」になるので「""」が最終結果になります。

Qセルに最初からある文字列を表示させておいて、そのセルを選択したら、その文字列の後から3桁数字を入力できるようにしたい

タイトルが長くてすみませんm(_ _)m
エクセル(97)に関しての質問です。

例えば、セルの中に最初から「15-G」という文字列を
表示させておいて、(ダブルクリックして編集という
形じゃなくて)そのセルを選択しただけで、
その文字列の後から3桁の数字を入力できるように
したいのですがいい方法はないでしょうか?

他にやってみた方法で、ユーザー定義(私が考えた定義→「"15-G"@」)でセルに3桁の数字(例えば567)を入力しますと、「15-G567」というように表示させる事が出来たのですが、何も入力されてない時は当たり前ですが空白のままです。
出来れば、最初から「セルの中の始めに15-Gという文字列を」表示させておきたいのですが…

Aベストアンサー

diashun です。
諦めずに挑戦するお気持ち、敬意を払います。
さて、エラー箇所を特定するためにデバッグモードでVBAを動かしてみましょう。
1.「Sheet1」のVBE編集画面を開いてください。
「Private Sub CommandButton1_Click()」の行とプロジェクトツリーの境界で右クリックしてください。
これでその境界部分に茶色の●が表示され、「Private Sub CommandButton1_Click()」の行も茶色の帯がつきましたか?
これは「ブレークポイント」といい、プログラムの実行を任意に中断する場合に指定します。
2.Excelの「Sheet1」に戻り、「CommandButton1」をクリックします。(この時、コントロールツールボックスのデザインモードを終了しておいてください)
3.VBEの[Sheet1」のブレークポイントのところで黄色い帯が表示されてプログラムの実行が中断されていますか?
ここまで「OK」でしょうか?
4.次の行からプログラムの実行を継続させます。
「F8」キーを一回押してください。
黄色い帯が次行(Set_String1)へ移動しましたか?
さらに「F8」キーを押すと「Module1」の「Set_String1」プロシージャVBE画面へ遷移するはずですが、ここまで「OK」ですか?
5.「F8」キーを一回ずつ押して一行ずつ実行してください。
エラー箇所があれば何らかのエラーダイアログとメッセージが表示されるはずです。その時「終了する」と「デバッグする」のボタンも表示されるので「デバッグする」のボタンを押すと、エラー行の場所が黄色い帯で表示されますので、その行内容とエラー表示メッセージの文言をお知らせ下さい。

>「Module1」の所が紺色に反転しています・・・は関係ないと思います。

ただ念のため「ThisWorbook」「Sheet1」「Module1」のVBEが下記の通り間違いないか、再確認もしておいてください。
●「ThisWorbook」のコード
Option Explicit

Private Sub Workbook_Open()
Dim strDefAry() As String
Dim i As Integer
ReDim strDefAry(0 To 9) As String '仮に10種類の文字列(ランダムな文字)を登録します。

strDefAry(0) = "15-G"
strDefAry(1) = "11-A"
strDefAry(2) = "15-V"
strDefAry(3) = "10-H"
strDefAry(4) = "11-R"
strDefAry(5) = "13-Y"
strDefAry(6) = "19-X"
strDefAry(7) = "00-D"
strDefAry(8) = "01-W"
strDefAry(9) = "15-K"

For i = 0 To 9
Sheet1.ListBox1.AddItem strDefAry(i)
Next i

Sheet1.ListBox1.Visible = True
ThisWorkbook.Sheets(1).Activate

End Sub

●「Sheet1」のコード
Option Explicit

Private Sub CommandButton1_Click()
Set_String1
End Sub

●「Module1」のコード
Option Explicit

Public Sub Set_String1()
Dim strCell As String, lngRowNum As Long, strDefStr As String
Dim i As Integer

strCell = InputBox("入力する列を「A,B,C,・・・」と入力して下さい。", "列入力")
strDefStr = Sheets(1).ListBox1.Text
lngRowNum = ActiveCell.Row
Call Set_String2(strCell, strDefStr, lngRowNum)
End Sub

Public Sub Set_String2(strCell As String, strDefStr As String, lngRowNum As Long)
Dim i As Integer

Range(Cells(lngRowNum, strCell), Cells(lngRowNum, strCell)).Activate
Range(Cells(lngRowNum, strCell), Cells(lngRowNum, strCell)) = strDefStr
End Sub

あと、Excelの「Sheet1」に「CommandButton1」と「ListBox1」は貼り付けられていますね?
以上、またご連絡をお待ちします。
でも、お忙しいならいつでもいいですよ。
気長にお付き合いしますので、(^_^)

diashun です。
諦めずに挑戦するお気持ち、敬意を払います。
さて、エラー箇所を特定するためにデバッグモードでVBAを動かしてみましょう。
1.「Sheet1」のVBE編集画面を開いてください。
「Private Sub CommandButton1_Click()」の行とプロジェクトツリーの境界で右クリックしてください。
これでその境界部分に茶色の●が表示され、「Private Sub CommandButton1_Click()」の行も茶色の帯がつきましたか?
これは「ブレークポイント」といい、プログラムの実行を任意に中断する場合に指定します。
2....続きを読む

Q長さ0の文字列"" を空白のまま数値化

未入力セル = 長さ0の文字列""  =  数値0   

1)未入力セルは、見かけは空白ですが数値上は 0です。
2)長さ0の文字列"" は、、見かけは空白ですが「数値」ではなく「文字列」です。
3)数値0は、もちろん0です。

ここで質問です。
「長さ0の文字列""」 を見かけは空白のままで数値上は 0にする方法を教えてください。

Aベストアンサー

こんにちは!

>見かけは空白のままで数値上は 0にする・・・

仮にA1セルを対象とする場合、表示したいセルに
=IF(A1="",LEN(A1),"")

としてみてはどうでしょうか?m(_ _)m

Qエクセル セル内の文字列を空白から空白まで抽出したい。

一つのセルに入っている文字列を複数のセルに分割したいのですが良い方法が見つかりません。

具体的には
「商品名 単価 数量 金額」が一つのセルに入っているのですが、これをそれぞれ「商品名」「単価」「数量」「金額」というように別のセルに分けたいのです。
条件は次です。
・文字列の区切りは空白(スペース)。
・商品名や金額などそれぞれの文字列の長さは決まっていません。
・商品名には名称の中に空白が使われている場合があります、その数も決まっていません。

以上です。いろいろ関数を使ってやってみたのですが、どうもうまくいきません。
どなたか良い方法がありますでしょうか、よろしくお願いいたします。

Aベストアンサー

No.2です。
分割されなくなって、単にB列にコピーとなってしまったのは、ヘッダ部分だけでなく、データ行も全てそうなってしまったのでしょうか?

ヘッダ行かどうか判断するのに「単価」「数量」「金額」であるべきところが「数値であるか」という処理を追加したのですが、データ行のデータが単純に数字でなくて@100とか1000個などとなっていると、ヘッダと見なされてしまいます。

とりあえず、その処理を抜いてみました。ヘッダ部分に空白が3つ以上あると他のデータ行と同様に分割され、空白が2つ以下ならそのままB列に転記されてしまいますが、それでOKならこれでいけるかも。

Sub SplitItems()
  Dim r As Range
  Dim c As Variant
  Dim i As Integer
  With Worksheets("Sheet1")
    For Each r In .Range("A1", .Range("A1").End(xlDown))
      c = Split(r, " ")
      If UBound(c) < 3 Then
        r.Offset(0, 1).Value = r.Value
      Else
        r.Offset(0, 1).Value = ""
        For i = 0 To UBound(c) - 3
          r.Offset(0, 1).Value = Trim(r.Offset(0, 1).Value & " " & c(i))
        Next
        r.Offset(0, 2).Value = c(UBound(c) - 2)
        r.Offset(0, 3).Value = c(UBound(c) - 1)
        r.Offset(0, 4).Value = c(UBound(c))
      End If
    Next
  End With
End Sub

No.2です。
分割されなくなって、単にB列にコピーとなってしまったのは、ヘッダ部分だけでなく、データ行も全てそうなってしまったのでしょうか?

ヘッダ行かどうか判断するのに「単価」「数量」「金額」であるべきところが「数値であるか」という処理を追加したのですが、データ行のデータが単純に数字でなくて@100とか1000個などとなっていると、ヘッダと見なされてしまいます。

とりあえず、その処理を抜いてみました。ヘッダ部分に空白が3つ以上あると他のデータ行と同様に分割され、空白が2つ以下...続きを読む

Qvlookupの結果が0になるセルと空白になるセル

vlookupの検索先のセルの見た目は空白なのですが結果が0になるセルと空白になるセルがあるのはどうしてなのでしょうか?
0になるセルを空白になるセルにコピペ、又はその逆をすると結果が違ってくるので両者には何かしら違いが有るはずなのです。
違いが分かる方いらっしゃいませんか?

計算式で結果を必ず0にする、空白にする等の回答は結構です。

Aベストアンサー

思い込みがあるように思いますので、まず以下のことを確認してみてください。

>両方ともF2を押して編集状態にしても何も入っていません

F2を押して編集状態にしても、文字数0の空白文字列が入っている場合は全く同じように見えます。

例えば「=TYPE(空白に見えるセル)」の数式で、文字列の「2」が返らないか調べてみてください。
あるいは「=COUNTA(空白に見えるセル)」で1が返ることでも確認できます。

このような空白文字列が入っている場合は(数式で空白文字列を返したセルを値貼り付けしたような場合に発生します)、その列を選択して「データ」「区切り位置」で「完了」すれば本当の空白セルにすることができます。

上記の検証で空白文字列ではないという結果が出た場合は、VLOOKUP数式セルの方の表示形式がユーザー定義になっていないか調べてみてください(条件付き書式は設定していないということなので)。

Q入力セルが空白の時 隣りと隣のセル(こちらも入力セル)を空白にできるかどうか?

こういったことできないでしょうか。

 A1  B2  C3
9:00  ~  10:00 と場合に

A1とC3に直接値を入力しています。

A1セルに値がはいらないとき B2のチルダも C3の値も 空白になってくれると
よいなと思うのですが 良い方法はありますでしょうか。

ご存知の方ご教示いただければ助かります。

Aベストアンサー

こんばんは!

>C3のセルのことを B2に入力した式で
>管理できないかと思っているのですが・・・

関数では無理だと思います。
VBAになりますが一例です。

画面左下の操作したいシート見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
A1・C3セルにデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) '//この行から//
If Intersect(Target, Range("A1,C3")) Is Nothing Then Exit Sub
If Target.Count = 1 Then
With Target
If .Row = 1 Then
If .Value <> "" Then
If Range("C3") <> "" Then
Range("B2") = "~"
End If
Else
Range("B2,C3").ClearContents
End If
Else
If .Value <> "" Then
Range("B2") = "~"
Else
Range("B2").ClearContents
End If
End If
End With
End If
End Sub '//この行まで//

※ A1セルがC3セルより大きな値になった場合などの細かいエラー処理はしていません。

こんな感じをお望みなのでしょうか?m(_ _)m

こんばんは!

>C3のセルのことを B2に入力した式で
>管理できないかと思っているのですが・・・

関数では無理だと思います。
VBAになりますが一例です。

画面左下の操作したいシート見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り(VBE画面を閉じて)
A1・C3セルにデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) '//この行から//
If Intersect(Target, Range("A1,C3")) ...続きを読む

QExcel2003 0と空白を別の値として判断したい

エクセル2003でIF関数の質問ですが、

A1=2 B1=0 と A1=2 B1が空白 の場合で

B1が0のとき0を返し、B1が空白の場合A1の値を返したいのです。

つまり0と空白を別の値として判断したいのですが、どうしたらいいので

しょうか? よろしくお願いします。

Aベストアンサー

判定を行う順序がポイントになります。

 =IF(ISBLANK(B1),A1,IF(B1=0,0,"未定義"))
 ※B1が0でも空白でもない場合は"未定義"が返ります。

B1がいわゆる「長さ0の文字列""」の場合も空白と同様に処理するなら、

 =IF(B1="",A1,IF(B1=0,0,"未定義"))
 ※[B1が空白または長さ0の文字列""ならばA1]

先に0かどうかの判定をしてしまうと、
空白は0とみなされてしまうのでうまくいきません。

×=IF(B1=0,0,IF(B1="",A1,"未定義"))
 ⇒B1が空白のとき0,長さ0の文字列""のときA1
×=IF(B1=0,0,IF(ISBLANK(B1),A1,"未定義"))
 ⇒B1が空白のとき0,長さ0の文字列""のとき"未定義"

QExcel VBA 選択されている複数の空白セルのセル番地を、他のブックのセルに表示させる方法

Excel VBAについての質問です。

マクロで、選択している複数の空白セルのセル番地を、他のブックのセルに記入し、空白セルの一覧を作りたいのです。
方法がございましたら、ご教授お願いします。

現在はデータの中から空白セルをすべて選択し、他のブックのシートのセルにセル番地を表示させることはできているのですが、$E$7のような表示になり、空白セルはたくさんあるのに1つしか表示されません。どうすればいいのでしょうか。

Aベストアンサー

図のように選択箇所が重なっていると重複してしまいますが、あとで削除すれば良いのでとりあえず。

Sub Macro2()

Dim 範囲 As Range
Dim 行 As Long
Dim 個目 As Long

Sheets("Sheet2").Columns("A:A").ClearContents
For Each 範囲 In Selection.Areas
For 個目 = 1 To 範囲.Count
If 範囲(個目).Value = "" Then
行 = 行 + 1
Sheets("Sheet2").Cells(行, 1).Value = 範囲(個目).Address(RowAbsolute:=False, ColumnAbsolute:=False)
End If
Next
Next

End Sub

QVLookup 関数が空白を0として引いてきてしまう

Vlookup 関数が、空白のセルなのに 0 と認識して持ってきてしまいます。どうすれば空白として表示できますか?

=vlookup(H88,Levels,2,false)
H88 のセルは空白なのに、0 として表示される。

Aベストアンサー

IF関数で対応します。
=IF(VLOOKUP(H88,LEVELS,2,FALSE)=0,"",VLOOKUP(H88,LEVELS,2,FALSE))
これで0になったら空欄で返してきますよ。

Qエクセルで特定のセル以下の全部のセルの選択方法

エクセルにて特定のセル以下の全部のセルをセレクトすることって可能でしょうか? 例えばG18をセレクトしたとして、G19、G20とずっと下までセレクトするって可能ですか?この技があれば仕事が時間短縮できることがあるのでぜひ知りたいです。

Aベストアンサー

Ctrl+Shift+↓

Ctrl+.も覚えておくと便利です。

http://www.relief.jp/itnote/archives/000099.php


人気Q&Aランキング

おすすめ情報