以前ヤフー知恵袋でした質問なんですが、考えがまとまらなくて１回の質問では解決に至ることができず、なんどもやりとり出来るこちらのコミュで改めて質問させて頂きます。
ショッピングサイトで使う商品の情報を改変？する作業を行なっております。
そのデータの中の、カテゴリーデータを並べ替える作業になります。
ひとつのセルに改行された（大体４行くらいの）データが入力されています。
そこから、大分類のカテゴリが２種類あるのですが、一番長いカテゴリだけを抜き出し商品別に並べたいのです。イメージとしてスカイドライブにアップしてあります。ブラウザでも表示できますが、一部エクセルでないと表示できないものもあるかもしれないのでダウンロードすると確実です。（バージョン2007でつくっています）
【スカイドライブ】
http://
私の考えでは、テキストにコピーしてエクセルに貼りつけで、改行をなくして一行ずつひとつのセルに分ける作業（伝わりますでしょうか；先のファイル参照）をしてから、一番長い行をバイト数かなにかでカウントさせて抜き出すようなイメージです。
ただ、商品ごとにそれをする方法がなかなか出てきません。
もういっぱいいっぱいの説明なので、あとは不明なところがあれば教えて欲しいです。
宜しければアドバイスお願いいたします。
ショッピングサイトで使う商品の情報を改変？する作業を行なっております。
そのデータの中の、カテゴリーデータを並べ替える作業になります。
ひとつのセルに改行された（大体４行くらいの）データが入力されています。
そこから、大分類のカテゴリが２種類あるのですが、一番長いカテゴリだけを抜き出し商品別に並べたいのです。イメージとしてスカイドライブにアップしてあります。ブラウザでも表示できますが、一部エクセルでないと表示できないものもあるかもしれないのでダウンロードすると確実です。（バージョン2007でつくっています）
【スカイドライブ】
http://
私の考えでは、テキストにコピーしてエクセルに貼りつけで、改行をなくして一行ずつひとつのセルに分ける作業（伝わりますでしょうか；先のファイル参照）をしてから、一番長い行をバイト数かなにかでカウントさせて抜き出すようなイメージです。
ただ、商品ごとにそれをする方法がなかなか出てきません。
もういっぱいいっぱいの説明なので、あとは不明なところがあれば教えて欲しいです。
宜しければアドバイスお願いいたします。
|
|
|
|
コメント(14)
新トピ立て、ありがとうございます。
さて、まず元データは、どこに入力されているのでしょうか？
「セル内改行」された「Path」というデータは、Webページのデータをコピーして、セルに貼り付けると、このようにセル内改行されるということではないでしょうか？
その場合は、Excelに貼り付ける際、［形式を選択して貼り付け］コマンドで「値」として貼り付けると、各行が1つのセルに別れて貼り付けられるようになりませんか？ここがまず1つ。
これができないというと、関数なりVBAなりでやる方法を考えなければなりません。
「Path」の列さえ、各行に分割できれば、「name」などのほかの行は、足りない行にはオートフィルでコピーして、1行分のデータが全部揃うようにすれば、「Path」に列で並べ替えれば、不要な行を削除するっていうのは、データ量が多くなければ、手作業でも十分に対処できるように思います。
さて、まず元データは、どこに入力されているのでしょうか？
「セル内改行」された「Path」というデータは、Webページのデータをコピーして、セルに貼り付けると、このようにセル内改行されるということではないでしょうか？
その場合は、Excelに貼り付ける際、［形式を選択して貼り付け］コマンドで「値」として貼り付けると、各行が1つのセルに別れて貼り付けられるようになりませんか？ここがまず1つ。
これができないというと、関数なりVBAなりでやる方法を考えなければなりません。
「Path」の列さえ、各行に分割できれば、「name」などのほかの行は、足りない行にはオートフィルでコピーして、1行分のデータが全部揃うようにすれば、「Path」に列で並べ替えれば、不要な行を削除するっていうのは、データ量が多くなければ、手作業でも十分に対処できるように思います。
＞マリ男 さん
レスありがとうございます。VBR使ったことがないんです。勉強するには時間が足りません。この作業にかたがついたら調べてみますね。
＞まじん さん
早速のアドバイスありがとうございます。
商品が2万点ほどあるのですみません。（フリーズしながらトロトロ作業しとります・・）
スカイドライブのデータはあくまで例です。扱っている商品とは違いますが、形はまんまあの通りです。
pathのデータを1行ずつに直すこと、そこはクリアしてます。
pathとname他の項目を同数行にしたとして、そこからが問題ですかね？
いい方法ないでしょうか。VBRやったことないですが、出来る範囲であればアドバイスお願いします。
レスありがとうございます。VBR使ったことがないんです。勉強するには時間が足りません。この作業にかたがついたら調べてみますね。
＞まじん さん
早速のアドバイスありがとうございます。
商品が2万点ほどあるのですみません。（フリーズしながらトロトロ作業しとります・・）
スカイドライブのデータはあくまで例です。扱っている商品とは違いますが、形はまんまあの通りです。
pathのデータを1行ずつに直すこと、そこはクリアしてます。
pathとname他の項目を同数行にしたとして、そこからが問題ですかね？
いい方法ないでしょうか。VBRやったことないですが、出来る範囲であればアドバイスお願いします。
VBAでやるならこんな感じ。
http://cid-ad277d7ffc581c22.office.live.com/self.aspx/mixi/%e3%82%ab%e3%83%86%e3%82%b4%e3%83%aa2.xlsm
[カテゴリ抽出]のボタンを押せばOK
' ---
Sub カテゴリ抽出()
Dim 分割データ
Dim i As Integer
Dim r As Integer
Dim メーカー別 As String
Dim 日用品 As String
For r = 2 To 4
分割データ = Split(Cells(r, 1), Chr(10))
メーカー別 = ""
日用品 = ""
For i = 0 To UBound(分割データ)
If 分割データ(i) Like "メーカー別*" Then
If Len(メーカー別) < Len(分割データ(i)) Then メーカー別 = 分割データ(i)
Else
If Len(日用品) < Len(分割データ(i)) Then 日用品 = 分割データ(i)
End If
Next
Cells(r, 6) = メーカー別
Cells(r, 7) = 日用品
Next
End Sub
' ---
これを関数でやるのはめんどくさいですね。
http://cid-ad277d7ffc581c22.office.live.com/self.aspx/mixi/%e3%82%ab%e3%83%86%e3%82%b4%e3%83%aa2.xlsm
[カテゴリ抽出]のボタンを押せばOK
' ---
Sub カテゴリ抽出()
Dim 分割データ
Dim i As Integer
Dim r As Integer
Dim メーカー別 As String
Dim 日用品 As String
For r = 2 To 4
分割データ = Split(Cells(r, 1), Chr(10))
メーカー別 = ""
日用品 = ""
For i = 0 To UBound(分割データ)
If 分割データ(i) Like "メーカー別*" Then
If Len(メーカー別) < Len(分割データ(i)) Then メーカー別 = 分割データ(i)
Else
If Len(日用品) < Len(分割データ(i)) Then 日用品 = 分割データ(i)
End If
Next
Cells(r, 6) = メーカー別
Cells(r, 7) = 日用品
Next
End Sub
' ---
これを関数でやるのはめんどくさいですね。
> [3] よ（・し＿・）の さん
1行ずつになっているけど、2万件とかのデータ数があるんですね。
[4]でミスキタさんが提示してくださっている通り、VBAで解決するのが結果的には対応しやすいと思いますが、「VBAはまったくわからない」というのをどうクリアするかですね。仕事なら「外注する」っていうのも1つの手ですし、最低限の知識を習得して、ミスキタさんのコードを利用させてもらうっていうのもあるでしょう。
ただ、状況はもっと整理したほうがいいかもしれません。
たとえば、「大分類」というのは、「メーカー別」と「日用品」しかないのかとか、分類の区分けの階層は、最大でいくつまでだとか……。
1行ずつになっているけど、2万件とかのデータ数があるんですね。
[4]でミスキタさんが提示してくださっている通り、VBAで解決するのが結果的には対応しやすいと思いますが、「VBAはまったくわからない」というのをどうクリアするかですね。仕事なら「外注する」っていうのも1つの手ですし、最低限の知識を習得して、ミスキタさんのコードを利用させてもらうっていうのもあるでしょう。
ただ、状況はもっと整理したほうがいいかもしれません。
たとえば、「大分類」というのは、「メーカー別」と「日用品」しかないのかとか、分類の区分けの階層は、最大でいくつまでだとか……。
- mixiユーザー
- ログインしてコメントしよう！
|
|
|
|
