痔になりやすい生活習慣とは?

いつもお世話になります。

OSはWINのXP。オフィスもXPを使用
しております。

セルのA-1に「あ」
セルのB-1に「い」といったデータが羅列されて
います。(行の2~)
このデータをセルC-1に&を使って
「あい」という形式のデータに変えたのですが、
1行飛ばしで不要なデータも入ってしまいます。

不要なデータを、すべて空白にしたいのですが
何か関数で簡単に出来ないモノでしょうか?

今は1行飛ばしでctlで複数選択して
削除しているのですが。。。。

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

A 回答 (5件)

不要なデータだけを削除するのですか、それとも不要なデータの入った行ごと削除するのですか。


(1)不要なデータだけを削除する場合で、そのデータだけを空白に置き換える。
例えば不要なデータにだけrという文字がはいっている場合検索する文字列を*r*とし置換える文字列を空白とすれば不要データはすべて空白と成ります。ただし空白としたくないセルのデータにも同じ文字があれば当然同時に空白となります。また行は削除されません。
(2)データの入力していない列に削除したいデータのある行だけに共通する数字を入れます。
例えば1行おきに削除したいデータがある時は1.2.1.2・・というように、3行ごとにある場合は1,2,3,1,2,3・・・というように数字をいれ、先頭行に「データ」「フィルタ」「オートフィルタ」を設定し、数字をいれた列のフィルタで削除したいデータだけを表示できます。
こうすれば、削除したいデータのみ、またはその行も一緒に削除できます。
    • good
    • 1
この回答へのお礼

お礼が遅くなりました。

参考にします。

ありがとうございました。

お礼日時:2003/07/29 10:48

こんな風にやって見ました。

シートを1枚挿入します。
または使っていないシートを使います。このシート名をSheet2とします。
もとデータがSheet1にあるとします。
Sheet2のA1に
=IF(MOD(ROW(),2)=0," ",Sheet1!A1)
と入れます。A1の式をA列方向に複写します。
A1の式をB1から右にデータの終わる列まで複写します。
A1:○1を下方向にデータの終わる行まで複写します。
1行おきに飛び飛びに残ります。
後は値の複写でSheet2の式を全部消してください。
    • good
    • 1
この回答へのお礼

お礼が遅くなりました。

参考にします。

ありがとうございました。

お礼日時:2003/07/29 10:49

質問の意味が良くわかりませんが


1行とびに削除するだけなら

1.作業用の列を2列作成
 (1)左端に2列挿入する
2.今の並び順を登録する
 (1)a列に1からの番号を割り振る
    1,2,3,4,5・・・
3.削除するか残すかの識別コードをつける
 (1)b列に識別番号を入力
  ・1行目に「0」
  ・2行目に「1」など
 (2)そのセル(0と1)を対象の行までコピー。
4.b列でデータを並べ替える。
5.削除するデータが集約されます。
 たとえばb列が「0」なら
 その範囲を一括で範囲指定して、行ごと削除。
6.a列でデータを並び替える。
7.a列を削除すれば、元通り。

てな感じでどうでしょーか。
    • good
    • 0
この回答へのお礼

お礼が遅くなりました。

参考にします。

ありがとうございました。

お礼日時:2003/07/29 10:49

この内容から推測すると、「データ範囲を1行おきに(3行目~)クリアしたい」


というように解釈しました。

確認ですが、完全に「1行おき」ですね。
もし、そうであれば、次のようなマクロを実行すると瞬時にクリアされます。

一応、詳しく操作手順を書きますので、バックアップを取った上でテストして
みてください。

【 操作手順 】(ご存知でしたら読み飛ばしてください。)
1.Alt + F11 で VBE(Visual Basic Editor)を開きます。
2.VBE のメニューから[挿入] -->[標準モジュール] を指定します。
3.モジュールウィンドウに下記コード(10行)をコピーして貼り付けます。
  (Option Explicitがあればその下付近に)
4.必要により、2~3行目の指定値を変更します。
5.Alt + Q (または、右上隅の×)でウィンドウを閉じ、シートに戻ります。
6.実行するときは、Alt + F8 (メニューから[ツール]-->[マクロ]-->[マクロ])で
 「隔行クリア」を指定し、[実行]ボタンを押します。


Sub 隔行クリア()
Const Kisuu_Gusuu = 1 ' <--- 奇数行クリア=1 , 偶数行クリア=0
Const DataTopRow = 2 ' <--- データのトップ行を指定
Dim Row As Long
For Row = DataTopRow To Range("A65536").End(xlUp).Row + 1
  If Row Mod 2 = Kisuu_Gusuu Then
    Rows(Row).ClearContents
  End If
Next Row
End Sub

趣旨が違うようでしたら、詳しい状況の補足が必要と思います。
    • good
    • 0
この回答へのお礼

お礼が遅くなりました。

参考にします。

ありがとうございました。

お礼日時:2003/07/29 10:50

こんにちは。

maruru01です。

Excelでは、「A、B、C」というのは列番号です。
したがって質問の通りだと、
A1に「あ」
その"右隣"のB1に「い」
さらにその"右隣"のC1に「=A1 & B1」(「あい」)
ということになり、
>1行飛ばしで不要なデータも入ってしまいます。
の意味がわかりません。
どういう表になっているのでしょうか。
    • good
    • 0
この回答へのお礼

お礼が遅くなりました。

参考にします。

ありがとうございました。

お礼日時:2003/07/29 10:50

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

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

このQ&Aを見た人はこんなQ&Aも見ています

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

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

Qエクセルで特定の行を削除したいのですが。

エクセルで特定の行を一発で削除したいのですが、やり方がわかりません。
どなたか詳しい方お教えいただけませんでしょうか?

やりたいことは、B列に、特定の文字が有れば、その行全部を削除して上方向にシフトしていきたいのですが、マクロとかを使うのでしょうか?
宜しくお願いいたします。

Aベストアンサー

マクロを使う別の方法です。
XXXの部分を特定の文字に置きかえて実行してください。
また、「特定の文字があれば」というのが、その文字列を含む、というのでなくセルの値がその文字列ならば、というのであれば、LookAt:=xlPart の部分を LookAt:=xlWhole に書き換えてください。

Sub DelLines()
  Dim R As Range
  Do
    Set R = ActiveSheet.Range("B:B").Find(What:="XXX", LookAt:=xlPart)
    If R Is Nothing Then Exit Sub
    R.EntireRow.Delete
  Loop
End Sub

Qエクセルである行以下全部を削除する方法

エクセルである行(もしくは列)以下を全部 削除したいのですが、簡単な方法があれば教えてください。選択して削除するにはあまりにも長く、スクロールしているうちに別のところを指定してしまったりして困っております、
MS office 97 を使用しています、

Aベストアンサー

こんにちは

> 列や行を削除しても空白の行がまた、入ってしまうのはどうやればよいのでしょうか?

 列や行を非表示にするのは、いかがでしょうか?
 例えば、11行目以降を非表示にするには以下の手順です。

1.11行目のセルのどれかを選択
2.Ctrl+Shift+↓
3.メニュー[書式]-[行]-[表示しない]

 11行目以降を再び表示させるには、

1.Ctrl+A(または全セル選択ボタンをクリック)
2.メニュー[書式]-[行]-[再表示]

参考URL:http://www2.odn.ne.jp/excel/

QExcelの下側の空行を消したい

Excelのファイルを使いまわししている時、シートの中を一回削除して他のデータをコピー&ペーストで貼り付けた場合、Ctrl+Endキーを押すと、貼り付けたデータより、ものすごい下のセルに移動してしまいます。貼り付けたデータの右下のセルに移動させたいのですが…

貼り付けたデータの下側を選択して行削除しても変わりません。

わかりづらい説明で申し訳ありません。
対処法が分かるかたがおられましたら教えてください!

Aベストアンサー

セルに何も入力されていなくても、書式変更ほか、何らかの情報が含まれている場合、それが「最後のセル」として認識されてしまいます。
これを修正するためには、誤った最後のセル位置から正しい最後のセル位置までの間の行・列を削除してやる必要があります。
下記ページを参考にしてみて下さい。
http://support.microsoft.com/default.aspx?scid=kb;ja;405492

参考URL:http://support.microsoft.com/default.aspx?scid=kb;ja;405492

Qエクセル 指定した文字列を含む列を削除するには

人から貰ったエクセルの表を必要なデータを残して削除する作業をしています。
(例:セルK5やM5に現在在庫数が入っている列が不要なので削除)
行に関してはオートフィルタを使って削除していますが、
列に関しては行列を入替えて貼付→オートフィルタで削除→行列を入替えて貼付
で実現出来ていますが、かなり時間と手間がかかっています。

もう少し簡単に上記作業を実現したいのですが、どうしたらよいでしょうか?

Aベストアンサー

> 指定した文字列を含む列を削除するには

素直に解釈して回答します。Excel2002 以降限定ですが。

 1. 検索するセルの範囲を選択
 2. [Ctrl]+[F] で検索ダイアログを表示
 3. 検索する文字列を入力
 4. [全て検索] をクリック
 5. リストボックスに表示された結果を全て選択
   --> セルが選択されます
 6. セル上で右クリック [削除]
 7. 6. で表示されるダイアログで、削除対象を [列全体] に指定

でできませんか?

QEXCELで複数行をまとめて選択する方法

EXCELで離れた複数の行を選択するとき、Ctrlキーを押しながら行いますが、誤って余計な行をクリックしてしまった場合、その前までに選択した行は選択したままで、誤って選択した行だけを選択から除外する方法はありませんか。

現在は1行誤っただけで、また最初からすべての行を選択し直しています。
このような非効率的な作業は腹立たしいだけなので、良い方法をご存知の方は是非ご教示ください。よろしくお願い致します。

Aベストアンサー

こんにちは

 1,3,5行目を選択した状態から5行目の選択を解除したいとします。
 アクティブセルはセルA5とします。

1.Shift+Home
→1,3行目とセルA5が選択された状態に
2.Shift+↑
3.Shift+↑
→1,3行目とA3:A5が選択された状態に
4.Shift+Tab
5.Shift+Tab
→セルA3がアクティブセルに
6.Shift+↑
7.Shift+↑

 以下のページもご参考になるのでは?

【エクセル技道場】-編集-選択範囲の一部解除
http://www2.odn.ne.jp/excel/waza/edit.html#SEC25

参考URL:http://www2.odn.ne.jp/excel/waza/edit.html#SEC25

Qエクセルで打ち込んだ数字を自動で別シートに表示したい

エクセルでセルに打ち込んだ数字を自動で別シートに表示できる方法があれば、教えてください。

例えば、シート1のC1に5を打ち込んだら、シート2のD2にシート1で打ち込んだ5が自動で表示される。

また1列すべてを自動で表示させる場合、一つのセルの時と違いがありましたら教えてください。よろしくお願いします。

Aベストアンサー

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コピー&リンク貼り付けを使うと便利です。

例)例)シート1のC1~C5に何かを入力したら、
  シート2のD2~D7にシート1で打ち込んだものが自動で表示される

  シート1にあるコピー元のセルを範囲選択して、
  シート2のD2の上で「右クリック」⇒「形式を選択して貼り付け」
  をクリックします。

  そして出てきた小さな画面の左下にある「リンク貼り付け」という
  ボタンをクリックすると完成です。
  試してみてください。。

  念のためにリンク貼り付けを図解しているURLを載せておきます。
  参考にしてみてくださいね。。
  http://www.geocities.jp/office_inoue/excel/eq21.htm

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コ...続きを読む

Qエクセルで重複しているデータの抽出のしかたを教えてください。

エクセルで重複しているデータを抽出したいのですが・・。なにぶん初心者なもので簡単な方法があればよいのですが・・。
A列に日付 B列に企業名このデータが300件ほどあります。

 Å列      B列
1月 1日    AAAA社
1月 4日   BBBB社
1月 8日   CCCC社
2月 1日   BBBB社
2月20日    DDDD社
3月 2日   AAAA社

と、あるとしてB列の企業名が重複しているものを抽出したいのですが・・・。この場合 AAAA社とBBBB社ですが。
これを簡単に抽出する方法はないでしょうか?
教えてください お願いいたします。

Aベストアンサー

企業名がセルB2からセルB300まで入力されていると仮定します。
セルC2に IF(COUNTIF($B$2:B2,B2)>1,"*","") を入力し、セルC300までコピーして下さい。すると重複したデータの二番目以降に "*" のマークが付きます。
(注) 数式を下のセルまでコピーするため、COUNTIF($B$2 は絶対参照にして下さい。

Qエクセルで、条件に一致した行を別のセルに抜き出す方法

エクセルで、指定した条件に一致するセルを含む行をすべて抜き出す方法が知りたいです。

たとえば、

<A列> <B列> <C列>
7/1 りんご 100円
7/2 ぶどう 200円
7/2 すいか 300円
7/3 みかん 100円

このような表があって、100円を含む行をそのままの形で、
別のセル(同じシート内)に抜き出したいのですが。

7/1 りんご 100円
7/3 みかん 100円

抽出するだけならオートフィルターでもできますが、
抽出結果を自動的に、別の場所に、常に表示させておきたいのです。

初歩的な質問だと思いますが、検索しても分からなかったので、よろしくお願いします。

Aベストアンサー

同じ質問が結構よく出てますが、そんなに初歩的でもありません
別シートのA1セルに「100円」と入力し、そのシートの任意のセルに以下の式を貼り付けて下さい。後は、下方向、右方向にコピー。
日付のセル書式は「日付」形式に再設定してください

=IF(COUNTIF(Sheet1!$C:$C,$A$1)>=ROW(A1),INDEX(Sheet1!A:A,LARGE(INDEX((Sheet1!$C$1:$C$500=$A$1)*ROW(Sheet1!$C$1:$C$500),),COUNTIF(Sheet1!$C:$C,$A$1)-ROW(A1)+1)),"")

データ範囲は500行までとしていますが、必要に応じて変更して下さい

Qexcel 複数行の削除

1    ○ ○ 建 材(株)
2〒111-0054○○市中央町4-14-36
3電0333(71)3333
4〔設 立〕平成12年9月
5〔営業種目〕生コン製造,砂利・砂,セメント,他
6     の販売
7〔資本金〕10,000千円     
8〔代表者〕山田太郎
9〔役 員〕(代)山田太郎(取)山田二郎(監)山 
10      田和子
11〔大株主〕山田太郎50%,山田二郎30%,山田二
12     郎,山田和子各10%
13〔取引銀行〕○○信金,??信金
14〔事業所〕(工場)○○市中央町4-14-36
15〔仕入先〕○○商事,丸々産業,
16〔販売先〕
17〔業 績〕(千円)
18 決算期    売上高   利 益 配当総額
1920年10月   470.200   △182    -
2021年10月    489,000   △200    -
2122年10月    448,000  △7,600    0
22〔格付概況〕C 永年の業歴かおるが、市況低迷
23 の影響により売上高は落ち込んでおり
24
25    丸々商会(株)
26〒1222-2222・・・・市・・・・
27〔設 立〕昭和61年7月
28〔営業種目〕一般貨物自動車運送業
29〔資本金〕25,000千円     
30〔代表者〕丸々一郎
31〔役 員〕(代会)丸々一(取)丸々保,丸々陽
32     子(監)丸々バツバツ
33〔大株主〕丸々一60%,丸々保,丸々陽
34     子
35〔取引銀行〕四菱東京,みずみ
36〔仕入先
37〔販売先〕山田運送,○運輸,丸々運輸,
38     ○○流通システム
39〔業 績〕(千円)
40 決算期    売上高   利 益 配当総額
4120年5月   450,000     -    -
4221年5月   430,000     一    -
4322年5月   420,000   3,000    -
44〔格付概況〕C 長引く不況による影響から取扱
45 高の減少が続いているが、運行管理強化などに
46 よって回復に全力を挙げてお‰あと一歩のと
47 ころ
48東京都(非上場)
492019
50               29-174343-9
51      (株)   ○ ○
52
53
54
55
56
57




1,25,51行は会社名

11行の大株主から24行の会社名の一つ手前までを削除
33行の大株虫から50行まで削除

このようなデーターが4万行まであります。

大株主から会社名の一つ手前までを一括で削除したいのですが
いい方法お願いします。

1    ○ ○ 建 材(株)
2〒111-0054○○市中央町4-14-36
3電0333(71)3333
4〔設 立〕平成12年9月
5〔営業種目〕生コン製造,砂利・砂,セメント,他
6     の販売
7〔資本金〕10,000千円     
8〔代表者〕山田太郎
9〔役 員〕(代)山田太郎(取)山田二郎(監)山 
10      田和子
11〔大株主〕山田太郎50%,山田二郎30%,山田二
12     郎,山田和子各10%
13〔取引銀行〕○○信金,??信金
14〔事業所〕(工場)○○市中央町4-14-36
15〔仕入先〕○○商事,丸々産業,
16〔販...続きを読む

Aベストアンサー

こんにちは!
VBAになってしまいますが、一例です。

条件として、削除したい行のはじめのセルに「大株主」という文字が入っていて
会社名セルには必ず「株」の文字が入っているとします。
尚、データはA1セルからあり、途中に空白がないという前提です。

画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)

Sub 行削除() 'この行から
Dim i As Long, k As Long
Application.ScreenUpdating = False
Rows(1).Insert
Columns(1).Insert
Cells(1, 1) = "項目"
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
If InStr(Cells(i, 2), "大株主") > 0 Then
k = i + 1
Do Until InStr(Cells(k, 2), "株") > 0 Or Cells(k, 2) = ""
k = k + 1
Loop
Range(Cells(i, 1), Cells(k - 1, 1)) = 1
i = k
End If
Next i
Cells(1, 1).AutoFilter field:=1, Criteria1:="<>"
i = Cells(Rows.Count, 1).End(xlUp).Row
Rows(1 & ":" & i).Delete
Columns(1).Delete
ActiveSheet.AutoFilterMode = False
Application.ScreenUpdating = True
MsgBox "処理完了"
End Sub 'この行まで

※ 一旦マクロを実行すると元に戻せませんので、
別Sheetでマクロを試してみてください。m(_ _)m

こんにちは!
VBAになってしまいますが、一例です。

条件として、削除したい行のはじめのセルに「大株主」という文字が入っていて
会社名セルには必ず「株」の文字が入っているとします。
尚、データはA1セルからあり、途中に空白がないという前提です。

画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)

Sub 行削除() 'この行から
Dim i As Long, k As Long...続きを読む

QエクセルのIF関数で、文字が入力されていたならば~

エクセルのIF関数で文字が入力されていたならば~、という論理式を組み立てたいと思っています。

=IF(A1="『どんな文字でも』","",+B1-C1)

A1セルに『どんな文字でも』入っていたならば、空白に。
文字が入っていなければB1セルからC1セルを引く、という状態です。

この『どんな文字でも』の部分に何を入れればいいのか教えてください。

またIF関数以外でも同様のことができれば構いません。

宜しくお願いします。

Aベストアンサー

=IF(ISTEXT(A1),"",B1-C1)

でどうでしょうか?


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング