VBAでの質問でしゅ。エクセルは2000です。
変数MyStrに全角カンマで区切られた文字列データが10種類程度あります。
現在、ある条件のもとに、MyStr=MyStr & Cell(i,2) & "、"のように取り込んで、最後にMyStr=Left(MyStr, Len(MyStr) - 1) で一番最後の「、」を削除しています。
例えば、MyStrの中身は、
OK建設株式会社、Goo工業合資会社、MM商事有限会社、AA合名会社、株式会社BB企画、OK建設株式会社、CC工業合資会社、DD商事有限会社、EE合名会社、株式会社BB企画
のような感じです。この中には重複したデータがある可能性があります。(例ではOK建設株式会社と株式会社BB企画)
これを重複を排除し、変数MyStrの中身を、
OK建設株式会社、Goo工業合資会社、MM商事有限会社、AA合名会社、株式会社BB企画、CC工業合資会社、DD商事有限会社、EE合名会社
と変える方法はないでしょうか?
あるいは、変数 MyStrにデータを取り込む際にすでにMyStrに入っているデータは除くような方法でもかまいません。
お知恵をお貸しくださいませ。 (o。_。)oペコッ.
No.1
- 回答日時:
InStr関数で、MyStr中に今加えようとしている文字列が含まれているかどうかチェックしたらどうでしょうか?
if (InStr(MyStr, Cell(i,2)) > 0) then MyStr=MyStr & Cell(i,2) & "、"
'If (InStr(MyStr, Cells(i, 2)) =0) Then MyStr = MyStr & Cells(i, 2) & "、"
ですね。
取り込まない方法については一発で解決しました!
有難うございました。
あとは、既に入ってるものを削除する方法があるのか・・・
No.2
- 回答日時:
エキスパートさん、台風の中から(まだですが、、)こんにちは。
またまた老婆心ながらの一言。
>If (InStr(MyStr, Cells(i, 2)) =0) Then MyStr = MyStr & Cells(i, 2) & "、"
>取り込まない方法については一発で解決しました!
本当に解決ですか?
文字列によっては拙いことはありませぬか?
例えば、いま、
myStr = "大山田商会、南鹿児島建設、長野商事" として
次のデータが、”鹿児島建設” だとどうでせう。
上手くいきますか???
そんな部分一致の会社名はありましぇ~ん、ということであれば無視!
これに限らず、コードを書くときは色んな場合を想定しなければいけません、
と偉そうなことを言ってみる。(^o^)。。。
以上です。
貴重なご指摘有難うございました!
ありえますね!
南鹿児島建設株式会社と鹿児島建設株式会社 なら頭の違い
有限会社薩摩芋焼酎販売と有限会社薩摩芋焼酎 なら後ろの違いですが どちらも部分一致してしまいますね!
う~ん。
No.4
- 回答日時:
kobouzuです。
daibutsuyoさん、凄い!
InStr(MyStr, "、" & Cell(i,2) & "、")
これは頭の隅にも浮かびませんでした。(^^;;;
それから、先の投稿はdaibutsuyoさんの回答が、云々、というものではありませんので。。。
質問者が色んな場合を想定しているのかどうかの確認のためです。
これからも目から鱗の回答、期待しています。
No.5ベストアンサー
- 回答日時:
こんにちは。
#2 さんの
>素直に配列かなんかを使って重複除去プログラムをまじめに作ったほうがいいかも?
私もそうは思ったのですが、ここの掲示板では、あまりそういう雰囲気にないということと、Excel VBAでは、こういう場合は、本来、AdvancedFilter を使ってしまいます。
あえて、後学のためにこんなコードを披露しておきます。以下のコードは、いろんなコードを十分に検討していればよいのですが、これしかないというようなコードではありません。
なお、本来、Dictionary オブジェクトにセルの値から直接入れればよいです。
今回は、文字列として出来上がっているという条件の下で書きました。
Sub DictionaryMethod()
Dim objDic As Object
Dim myText As String
Dim arData As Variant
Dim i As Long
Dim v As Variant
Dim arOut As Variant
'本来はセルから取る
Const strText = "OK建設株式会社、Goo工業合資会社、MM商事有限会社、AA合名会社、株式会社BB企画、OK建設株式会社、CC工業合資会社、DD商事有限会社、EE合名会社、株式会社BB企画"
Set objDic = CreateObject("Scripting.Dictionary")
myText = WorksheetFunction.Substitute(strText, " ", "") '半角空白抜き
arData = Split(myText, "、")
i = 1
For Each v In arData
If objDic.Exists(v) = False Then
objDic.Add v, i 'i はダミーです。
i = i + 1
End If
Next v
arOut = objDic.Keys
'出力する方法
Range("A1").Resize(objDic.Count).Value = WorksheetFunction.Transpose(arOut)
Set objDic = Nothing
End Sub
Dictionary オブジェクトですか。
はじめて聞く言葉です。
VBAの呪文は奥が深いのですねえ・・・。
やってみて上手くいきました。
ただ、
> 'i はダミーです。
の意味がわかりません。
> arOut = objDic.Keys
これはobjDicをarOutという配列に取り込んだのですよね?Keysってなんでしょう?
No.6
- 回答日時:
またまた、kobouzuです。
回答もせずに人の回答云々では、おい、おい、だろうと
ランチ(スパ&珈琲)を食べた後。。。。と思ってたら
Wendy02さんの回答が出てました。。。(^^;;;
が、折角書いたのでアップップ。
'-----------------------------------------------
Sub Test()
Dim i As Long
Dim myStr As String
Dim myDic
Set myDic = CreateObject("Scripting.Dictionary")
For i = 2 To Range("B65536").End(xlup).Row
If myDic.exists(Cells(i, "B").Value) = False Then
myStr = myStr & Cells(i, "B").Value & "、"
myDic.Add Cells(i, "B").Value, ""
End If
Next i
myStr = Left(myStr, Len(myStr) - 1)
End Sub
'-----------------------------------------------------
以上です。
ありがとうございます。
これもうまく作動します。
> myDic.Add Cells(i, "B").Value, ""
の ,"" はなんでしょうか?
Wendy02さんの、objDic.Add v, i のiに当るのでしょうか?
No.7
- 回答日時:
私も参加^^ 蛇足回答だけどね。
。配列からユニークデータを取り出すなら、定番は Dictionary ですが
Collection を使ってもできますよ。
' // 一次元配列から重複を取り除く
Set UniqueArray = New Collection
On Error Resume Next
For Each vItem In SourceArray
UniqueArray.Add vItem
Next
On Error GoTo 0
Collection は同一値を Add しようとするとエラーになるのを利用
してます。
回答ですが、処理の流れとしては
1. 前処理として区切り文字となる「、」記号の全半角統一
2. Split で配列にばらす
3. 必要なら配列要素に Trim などの加工を行う
4. 3 の配列に対し、#3ご回答の方法や上述のような方法でユニーク
データを取り出す
5. 4. のデータを配列に戻す
4. Join で配列を連結する
とかでしょうか。
No.8
- 回答日時:
#7 の記載ミス訂正です。
' // 一次元配列から重複を取り除く
Set UniqueArray = New Collection
On Error Resume Next
For Each vItem In SourceArray
UniqueArray.Add vItem, vItem ' <-- キーの重複不可を利用です
Next
On Error GoTo 0
有難うございました。
このようにしてみたのですがうまく行きません。
Sub test2()
SourceArray = Split("OK建設株式会社、Goo工業合資会社、MM商事有限会社、AA合名会社、株式会社BB企画、OK建設株式会社、CC工業合資会社、DD商事有限会社、EE合名会社、株式会社BB企画", "、")
Set UniqueArray = New Collection
On Error Resume Next
For Each vItem In SourceArray
UniqueArray.Add vItem, vItem ' <-- キーの重複不可を利用です
Next
On Error GoTo 0
MsgBox Join(UniqueArray)
End Sub
No.9
- 回答日時:
こんな感じです。
Collection というオブジェクトがあります。よく、Worksheets
コレクション...といった表現がこのサイトでもでてきますけど、
アレです。
Worksheets は組み込みですが、自分でコレクションを作ること
が可能です。値のほか、オブジェクトも扱うことができますので
使い方の工夫次第で非常に便利ですよ。
今回は、Dictionary と同じような使い方をしましたが、重複判定
処理には Dictionary の方が高速なので、参考情報まででした。
Sub test2()
Dim Buf() As String
Dim SourceArray As Variant
Dim UniqueArray As Collection
Dim vItem As Variant
SourceArray = Split("OK建設株式会社、Goo工業合資会社、MM商事有限会社、AA合名会社、株式会社BB企画、OK建設株式会社、CC工業合資会社、DD商事有限会社、EE合名会社、株式会社BB企画", "、")
' // ユニークデータを取り出す
Set UniqueArray = New Collection
On Error Resume Next
For Each vItem In SourceArray
UniqueArray.Add vItem, vItem
Next
On Error GoTo 0
' // UniqueArray というのは Collection オブジェクトです。
' // 配列にするためには、For ループなどで回します。
' // Collection は 1オリジン(添え字が1から始まる)のに注意
ReDim Buf(UniqueArray.Count - 1)
For i = 1 To UniqueArray.Count
Buf(i - 1) = UniqueArray(i)
Next
' // Join は指定した区切り文字で一次元配列の内容を
' // 連結する関数です ※Excel2000以降
' // 改行コードで連結する場合
MsgBox Join$(Buf, vbCrLf)
End Sub
No.10
- 回答日時:
こんにちは。
Wendy02です。>Dictionary オブジェクトですか。
>はじめて聞く言葉です。
でも……。しょせん外部オブジェクトですからね……。(^^;
そんなに使えるものとは思っていません。Excelは、内部にいろいろありますからね。
>> 'i はダミーです。
>の意味がわかりません。
i は、単に、割り振りだけです。それ自体は、ここでは役に立っていませんね。
>> arOut = objDic.Keys
>これはobjDicをarOutという配列に取り込んだのですよね?Keysってなんでしょう?
Dictionary オブジェクトには、Key と Item があって、Key側に名称が入っていますから、それを配列で取り出しました。
Dictionary オブジェクト
参考URL:http://msdn.microsoft.com/library/ja/default.asp …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 会社設立・起業・開業 会社の設立年月日について 2 2023/01/13 16:03
- Excel(エクセル) エクセルの数式で教えてください。 5 2023/02/10 15:11
- 就職 就職先 どちら 2 2022/09/29 18:54
- 会社設立・起業・開業 2006年で有限会社はなくなり新規で設立が出来なくなったみたいですね。 これから1人で法人を作る事は 4 2023/04/05 01:25
- Excel(エクセル) 至急です><Excelの関数を教えてください。 2 2022/03/22 17:56
- 会社経営 民間企業はほぼ株式会社なんですが、株式会社で経営する理由ってなんですか? 株式会社ではない民間企業だ 7 2023/02/01 23:46
- 会社設立・起業・開業 グループ会社や子会社としての要件を満たすのかどうか? 1 2022/12/30 08:48
- 経済 例えば、私が莫大な資産家で合資会社を設立して、三菱などのグループ会社の上場企業の株式を51%以上買い 4 2023/01/12 22:13
- 法学 全部取得条項付株式の取得と引換えにする株式の発行 申請書について 1 2022/12/21 17:32
- Excel(エクセル) Excel 数行を1組とする300組ほどあるデータの項目を揃えたいです。 3 2023/01/26 19:38
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
同一セル内の重複文字を削除したいです
Excel(エクセル)
-
エクセル セル内の重複する文字列を削除する方法
その他(Microsoft Office)
-
同一セル内での重複削除
その他(Microsoft Office)
-
-
4
VBAで重複するデータがあれば1個だけ残して他の重複セルを"(空白)にしたいのですが
Excel(エクセル)
-
5
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
6
エクセルのセル内の重複文字列処理について
その他(Microsoft Office)
-
7
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
8
split関数で区切り文字がない場合
Visual Basic(VBA)
-
9
Excelの入力規則で2列表示したい
Excel(エクセル)
-
10
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
11
VBAで新しい日付順にファイルを検索するには?
PowerPoint(パワーポイント)
-
12
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
13
vba フィルター 複数条件 3つ以上 完全一致除外
Visual Basic(VBA)
-
14
VBA 1次元配列を2次元に追加する
Visual Basic(VBA)
-
15
excel VBA 部分一致の名前をパスに指定する方法
Excel(エクセル)
-
16
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
17
vba 時間の引き算 例えば 15:00から16:15の間の時間は1時間15分ですが、vbaのコード
Visual Basic(VBA)
-
18
VBA 空白セルを削除ではない方法で詰めるやり方
Visual Basic(VBA)
-
19
文字列の結合を空白行まで実行
Visual Basic(VBA)
-
20
Excel VBA 空白セルがあったらメッセージボックスで知らせたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
おすすめ情報