エクセル2003で作業しています。

AAAA
BBBB
AAAA
BBBB
……
……

というような感じで文字が数千、列になっていて、このB行だけを全て削除したいんですが
どういうやり方があり、簡単でしょうか?

A 回答 (4件)

オートフィルタを使ってみて下さい。



オートフィルタの基本を整理しよう - [Excelの使い方]All About
http://allabout.co.jp/computer/msexcel/closeup/C …

「BBBB」でフィルタリングして、その行を選択、削除して下さい。
その後、オートフィルタを解除。

でどうでしょうか?
    • good
    • 0
この回答へのお礼

皆さん、早々の回答本当にありがとうございました。
オートフィルタで解決しました。

お礼日時:2009/05/22 01:01

VBAなら


A列の最下行を求める。最下行から上行に1行ずつ、bbbを判断して
そうであれば、行を削除。
下から上へ見ていくこと。
Sub test02()
d = Range("A65536").End(xlUp).Row
For i = d To 1 Step -1
If Cells(i, "A") = "bbb" Then
Rows(i).EntireRow.Delete
End If
Next i
End Sub
ーー
操作なら
フィルタでbbbをだし、DELETEで削除
編集ージャンプーセル選択ー空白セル
編集ー削除
    • good
    • 0

マクロの案は既回答にあるので、手動の案を



オートフィルタで対象行だけ選択して、行の削除、後にオートフィルタを解除
    • good
    • 0

マクロを使用する場合は、たとえば以下を実行することでできます。


Sub test()
Range("A1").Select
Do Until Selection.Value = ""
If Selection.Value = "BBBB" Then Rows(Selection.Row).Delete Shift:=xlUp
Selection.Cells(2, 1).Select
Loop
End Sub
    • good
    • 0

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

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

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

Qバーエンド 交換方法

純正のバーエンドを、外して
社外品のバーエンドに、交換予定なのですが、
純正バーエンドのネジ(プラス)が、空回りして外れません。
ネジを回すと、バーエンド全体も、回ります。
乗ってる車種は、タイカブです。

良い解決方法を、教えて下さい。

お手数かけますが、宜しくお願いします。

Aベストアンサー

現状のバーエンドを再利用しないのならば、ロッキングプライヤーで
がっちり挟み込み、ハンドルの外方向にに向けてプライヤーを
金槌で殴る。
以前この方法で外した事があります。
どういう取り付け方がされているのかは車種にもよりますので
参考までに。

Q作業列なしで各行のA列とB列の数値の小さい方に、C列の数値をかけた値の和を求めたい

エクセルで、A列B列C列の1行目から100行目まで、それぞれ数値が入っているとします。
各行のA列とB列の数値の小さい方に、C列の数値をかけた値の和を求めたいです。
D列を作業列にするなら、D1に「=MIN(A1,B1)*C1」として、これをD100までコピーして、「=SUM(D1:D100)」で得られる数値を求めたいのですが、元となるデータが頻繁に追加されることも有り、作業列の追加が難しい状況です。
SUMPRODUCT関数を使おうにも、「=SUMPRODUCT(MIN(A1:A100,B1:B100),C1:C100)」では、A1からB100までの200セルのうちの最小値に、C1からC100の数値をそれぞれかけた値の和が返されてしまいます。
なにかよい方法があれば、お知恵を拝借できないでしょうか。

Aベストアンサー

こんにちは!

範囲を最初から多目にしておいてはダメですか?
SUMPRODUCT関数はどこかの列が空白の場合は「0」とみなされ合計しても結果に変化はないはずですので・・・

どうしても作業列を使用したくない場合の一例です。
表示したいセルに
=SUMPRODUCT(IF(A1:A1000<=B1:B1000,A1:A1000,B1:B1000),C1:C1000)

配列数式になりますので、Ctrl+Shift+Enterで確定!
この画面からコピー&ペーストする場合は上記数式をドラッグ&コピー! → 表示したいセルを選択 → 数式バー内に貼り付け  → そのまま(編集可能なまま)
Ctrl+Shiftキーを押しながらEnterキーで確定します。
数式の前後に{ }マークが入り配列数式になります。

※ SUMPRODUCT関数自体が配列数式になりますが、
配列数式内に配列数式を入れた感じになります。m(_ _)m

Qバーエンドの取り付けについて

BD-1タイプのバイクに乗っていますが、サイクリング時の疲労を軽減するため、バーエンドの取り付けを考えています。
そこで質問ですが、バーエンドを取り付けるにはグリップも交換する必要があるのでしょうか?
また、バーエンドを付けた場合折り畳み時に邪魔になりそうですが、アーレンキーなどを使えば簡単に取り外すことができるのでしょうか?

Aベストアンサー

BD-1にバーエンドを取り付けています。
バーエンドを取り付ける場合、グリップの先端部分を、バーエンドの差し込み幅だけカッターで切り取ります。取り付けるバーエンドにもよりますが、せいぜい1cmくらいです。
BD-1の場合、ハンドルは左手前方向に折りたたむのですが、折り畳み時に邪魔になることはありません。ただ、折りたたんだ際の幅が、通常よりも多少広がります。
バーエンドはショートタイプにすると良いです。
取り付けに関しては、この画像を見てもらうのがわかりやすいです。
http://www.cb-asahi.co.jp/image/kaigai/bbb/04/bbe01colur.html
アーレンキーで取り付けます。たいてい、5mmか6mmです。

QA列(10行)とB列(10行)の全ての組み合わせをC列にリストアップしたい。

何度もすみません。
前回の質問で文字列の組み合わせの方法は理解いたしました!
本当にありがとうございます。

追加で質問になるのですが、タイトルにあるように(※数字は仮です)

A列(10行)とB列(10行)の全ての組み合わせをC列にすべて(100行?)リストアップしたいと考えています。

また並び方は
A1
A2
A3



B1
B2



というようにしたいです。
このようにするには

C列にどのような関数を入れればいいのでしょうか?
どうかよろしくお願いいたします。

Aベストアンサー

#3,#4です
C1セルに
=IF(COUNTA(A:A)*COUNTA(B:B)<ROW(),"",
INDEX(A:A,(ROW()-1)/COUNTA(B:B)+1)&" "
&INDEX(B:B,MOD(ROW()-1,COUNTA(B:B))+1))
で良かったです。余計なものを足してました。
添付図、薄い緑は手入力です。水色には数式が入っています
D、E列のような数値が求められれば、(INDEX関数を使って)結果が出せるのはわかるでしょうか?

以下、その数値を求める方法です。
素材として連番があります。

F列は、行番号です。F1セルに =ROW()

G列は、連番をB列の個数で割ったものです。
求めたい値を出すために (連番-1)/B列の個数 +1 としています
G1 =(F1-1)/COUNTA(B:B)+1
=INT((F1-1)/COUNTA(B:B)+1)とすれば求めたい値になります。

H列は連番をB列の個数で割った余りです。
求めたい値を出すために((連番-1)/B列の個数)のあまり +1 としています
F1 =MOD(F1-1,COUNTA(B:B))+1

I1セル =INDEX(A:A,G1)
J1セル =INDEX(B:B,H1)
としてA列、B列の値を引っ張ってきます。
ここでINDEXの第2引数ですが、小数になっている場合切り捨てられて計算されるので、INTを追加しなくても良いです。
わかりにくくなる可能性を加味してINTを加えても良いでしょう。

ある程度の説明はしたつもりですが、それでもわからない点があれば再度質問してください

#3,#4です
C1セルに
=IF(COUNTA(A:A)*COUNTA(B:B)<ROW(),"",
INDEX(A:A,(ROW()-1)/COUNTA(B:B)+1)&" "
&INDEX(B:B,MOD(ROW()-1,COUNTA(B:B))+1))
で良かったです。余計なものを足してました。
添付図、薄い緑は手入力です。水色には数式が入っています
D、E列のような数値が求められれば、(INDEX関数を使って)結果が出せるのはわかるでしょうか?

以下、その数値を求める方法です。
素材として連番があります。

F列は、行番号です。F1セルに =ROW()

G列は、連番をB列の個数で割ったものです。
...続きを読む

QマジェスティC バーエンド

マジェスティC バーエンド

こんにちはマジェスティCのグリップを交換したいのですが、バーエンドが外れません。
マジェスティCのバーエンドはネジ式ですか?
それとも叩けば外れるタイプでしょうか?経験あるかた教えてください。
ネジ式だと思い左に回してみましたがとれる気配がありません。。。
ただ固いだけでしょうか?それとも右まわしでしょうか…

Aベストアンサー

YP250Cですよね。
バーエンドにキャップがついていると思いますが、それを外すと内部に六角穴がありますので六角レンチで左に回して下さい。
バーエンド自体が回ります。
結構固いと思います。

QEXCELでA列とB列の文字が合わせてC列に入るやり方を教えて欲しいで

EXCELでA列とB列の文字が合わせてC列に入るやり方を教えて欲しいです。

A1セルは04+  B1セルは2000 C列に04+ 2000のように作りたいです(真ん中に1個スペース)。
セルが多すぎて、一個ずつやるのは大変時間かかりますので、関数のやり方をご教示ください。
よろしくお願いします。

Aベストアンサー

C1に
=A1&" "&B1

Q自転車のバーエンドとグリップ

現在乗っているフラットバータイプの自転車にバーエンドをつけようと考えています。

バーエンド取り付けのためにはグリップの端を切らないといけないようですが、バーエンド用に始めからカットされているグリップは無いのでしょうか?

また、バーエンド種類が長め、短め、曲がっているタイプなどいろいろあるようですが、使い勝手が良いのはどのタイプでしょうか?


自宅近くに自転車店が無いので実物を見る機会がありません、

お勧めのバーエンドやグリップなどがありましたら教えてください。


よろしくお願いいたします。

Aベストアンサー

>バーエンド用に始めからカットされているグリップは無いのでしょうか?

ありますよー。
http://www.cb-asahi.co.jp/parts/204_all.html
例えばこのサイトではグリップの端を「オープン」「クローズ」で表していますね。



>使い勝手が良いのはどのタイプでしょうか?

どのように握りたいか、にもよると思います。

■短いタイプ
バーエンドバーを手の平で包むように握る。
■長いタイプ、曲がっているタイプ
バーエンドバーに手の平を添わせるように握る。

実際に使ってみないと分かりませんが、好みの問題です。



また、バーエンドバーの形状や大きさは自転車全体の見た目にも影響しますから、それも考慮して外見から決めても良いのではないかと思います。






>お勧めのバーエンドやグリップなどがありましたら教えてください。


バーエンドバーはお好みで。

グリップは、両端をボルトで止めるタイプをお薦めします。
ブレーキレバーやシフトレバーを交換する時やハンドルバーを交換する時にグリップを抜く必要がありますが、この時にボルトで止めるタイプだと非常に楽です。
通常の突っ込んで固定するタイプだと、取り外しが困難でカッターで切ってしまわないと外せないようなケースが多いです。なので事実上使い捨てとも言えると思います。
それに対しボルトで止めるタイプだと簡単に取り外し出来るし、再利用できます。

上記のリンク先にボルト止めタイプが多く載っています。

>バーエンド用に始めからカットされているグリップは無いのでしょうか?

ありますよー。
http://www.cb-asahi.co.jp/parts/204_all.html
例えばこのサイトではグリップの端を「オープン」「クローズ」で表していますね。



>使い勝手が良いのはどのタイプでしょうか?

どのように握りたいか、にもよると思います。

■短いタイプ
バーエンドバーを手の平で包むように握る。
■長いタイプ、曲がっているタイプ
バーエンドバーに手の平を添わせるように握る。

実際に使ってみないと分かりませ...続きを読む

QA列とB列の重複を抽出したいのですがA列とB列の値は一部だけ同じ文字です。ご教示お願いします。

エクセル初心者です。重複を見つけるのが仕事です。いろいろやってみたのですがうまくできません。
お知恵をお貸しください。

A列には企業名が入力されています。
B列にも企業名が入力されていますが全く同じ文字ではないのです。

たとえばこういうことです。
A1 (有)雪見酒      B1  雪見
A2 株式会社豪雪地帯   B2 (株)豪雪地帯
A3 ゆきかき本舗     B3 (有)ゆきかき本舗

A列にある企業名とB列にある企業名が同じであればセルを塗りつぶすか○を表示させるように
したいのです。
重複を見つけるのが目的なので、ほかの方法でもかまいません。
すみません、A列のセルとB列のセルが全く同じ名前ならば重複が見つけられたのですが
ここから先がどうしてもわからないのです。。。
申し訳ありませんがどうか教えてください。。。

Aベストアンサー

No4です。以下のマクロを標準モジュールへ登録してください。
--------------------------------------------------
Option Explicit
Public Sub 重複チェック()
Dim maxrow1 As Long
Dim maxrow2 As Long
Dim row1 As Long
Dim row2 As Long
Dim nameT1() As String
Dim nameT2() As String
Dim t1, t2 As Variant
t1 = Time
maxrow1 = Cells(Rows.Count, "A").End(xlUp).row '最大行取得
maxrow2 = Cells(Rows.Count, "B").End(xlUp).row '最大行取得
ReDim nameT1(maxrow1)
ReDim nameT2(maxrow2)
Range("C1:" & "D" & maxrow2).Value = ""
Call makeTable(nameT1, "A", maxrow1)
Call makeTable(nameT2, "B", maxrow2)
For row1 = 1 To maxrow1
For row2 = 1 To maxrow2
If Cells(row2, "C") = "" Then
If Mymatch(nameT1(row1), nameT2(row2)) = True Then
Cells(row2, "C").Value = "○"
Cells(row2, "D").Value = row1
End If
End If
Next
Next
t2 = Time
MsgBox ("チェック完了 処理時間=" & Minute(t2 - t1) & "分" & Second(t2 - t1) & "秒")
End Sub
'余分な文字を削除した結果をテーブルに格納する
Private Sub makeTable(ByRef nameT() As String, ByVal col As String, ByVal maxrow As Long)
Dim row As Long
Dim ary As Variant
Dim name As String
Dim i As Long
ary = Array("㈱", "(株)", "株式", "(有)", "有限", "会社")
For row = 1 To maxrow
name = Cells(row, col).Value
For i = 0 To UBound(ary)
name = Replace(name, ary(i), "")
Next
nameT(row) = name
Next
End Sub
'企業名が一致かどうか判定する
Private Function Mymatch(ByVal name1 As String, ByVal name2 As String) As Boolean
Mymatch = False
Dim pos As Variant
pos = InStr(1, name1, name2, vbTextCompare)
If pos > 0 Then Mymatch = True
End Function
-----------------------------------------------------
一致の精度が悪ければその旨補足してください。
(一致すべきものが一致しない、一致してはいけないものが一致している)
100%解決できる保証はありませんが、多少のチューニングは行います。

No4です。以下のマクロを標準モジュールへ登録してください。
--------------------------------------------------
Option Explicit
Public Sub 重複チェック()
Dim maxrow1 As Long
Dim maxrow2 As Long
Dim row1 As Long
Dim row2 As Long
Dim nameT1() As String
Dim nameT2() As String
Dim t1, t2 As Variant
t1 = Time
maxrow1 = Cells(Rows.Count, "A").End(xlUp).row '最大行取得
maxrow2 = Cells(Rows.Count, "B").End(xlUp).row '最大行取得
ReDim ...続きを読む

QCB400SF バーエンド交換

CB400SFspecIIIのバーエンド交換を考えています。

純正のバーエンドは先っぽのネジを回すだけで取れるのでしょうか?
また、新しく付ける物もネジを回すだけで付けることができるのでしょうか?

バーエンドを交換すると振動が酷くなるという話も良く聞きます。
その振動はどの程度のものなのでしょうか?
普通に運転しているだけでも辛いようなら交換するのを止めようかと思っています。

また、純正ハンドルの径も調べましたが分かりませんでしたorz
よろしければ一緒に教えて頂きたいです。

Aベストアンサー

昔、いろいろやって遊びました。
バーエンド変えてもいいことありません。
エンジンから発生する振動によるハンドルの共振を防ぐためにありますので外したり軽くするとハンドルに振動が出ます。
その振動が高回転とかいつも使う回転域とか、ツーリングペースで流しているときに多用する回転数とかでビリビリ振動するようになります。
振動解析して重さを決めているようですのでいじらないほうがいいですよ。

バーエンド変えるくらいならリッター2500円くらいのエンジンオイル
試してみるといいですよ。
よく回るエンジンがもっと元気良くなります。

では。

Q【EXCEL】条件付き書式、A列、C列、D列、E列が同じ値の時にB列の背景色を変えたい

お世話になります。

エクセルの条件付き書式の数式の使い方について教えて下さい。
A列、C列、D列、E列の値が同じ時にB列のセルの背景を青に
塗りつぶしたいと思っています。

なので、「数式を使用して、書式設定するセルを決定」、
「次の数式を満たす場合に値を書式設定」で、数式を
「=A1=C1=D1=E1」と入力し、書式、塗りつぶし、青、
を選択して、条件付き書式を設定しました。
すると、、、画像のような結果になります。

私の感覚だと画像でセルの値が「11」~「15」の時だけ
B列が青になると思うのですが実際の結果は画像の通りです。

先の話の通りA列、C列、D列、E列の値が同じ時だけ
B列のセルの背景を青にしたい場合はどうい数式になるのでしょうか?

すいませんが、詳しい方、数式(関数?)で説明できる方よろしくお願い致します。

追記
可能でしたらA列、C列、D列、E列が空白の時はB列の背景色をなしにしたいと思っております。
→A列、C列、D列、E列に値があって、かつ同じ値の場合のみB列の背景を青にしたいです。

お世話になります。

エクセルの条件付き書式の数式の使い方について教えて下さい。
A列、C列、D列、E列の値が同じ時にB列のセルの背景を青に
塗りつぶしたいと思っています。

なので、「数式を使用して、書式設定するセルを決定」、
「次の数式を満たす場合に値を書式設定」で、数式を
「=A1=C1=D1=E1」と入力し、書式、塗りつぶし、青、
を選択して、条件付き書式を設定しました。
すると、、、画像のような結果になります。

私の感覚だと画像でセルの値が「11」~「15」の時だけ
B列が青にな...続きを読む

Aベストアンサー

AND関数を使えば判定ができるのでは?
 =AND(A2<>"",A2=C2,C2=D2,D2=E2)

A列には常に判定する数値が入っているなら「A2<>""」は不要です。

参考サイト
http://www.relief.jp/itnote/archives/003940.php


人気Q&Aランキング

おすすめ情報