エクセルの区切り位置をマクロで実行させたい。

以下のようなテキストデータをエクセルに読み込み区切り位置をマクロで実行。
{'〇〇1': {'data_count': 132}, '〇〇2': {'data_count': 343}, '〇〇3': {'data_count': 333}

数字の後ろの}を区切りたいのですが、探し当てることができず、有識者の方ご教示いただきたいです。

また、実行後、右一列に表示されますが、これを縦に表示させることは可能でしょうか？

Option Explicit

Sub divide()
    Dim objSheet
      For Each objSheet In ThisWorkbook.Worksheets
          objSheet.Range("A:A").TextToColumns Comma:=True
      Next
      
End Sub

Y.H.

2019/10/30 04:12

> 数字の後ろの}を区切りたい具体的にどういう結果が欲しいのかさっぱりわかりませんので具体的に質問に記載ください。文面通りなら、以下になりますがこれでいいんですか？セルA1に「{'〇〇1': {'data_count': 132」セルA2に「, '〇〇2': {'data_count': 343」セルA3に「, '〇〇3': {'data_count': 333」

hatena19

2019/10/30 05:48

あとA列全体を対象にしているようですが、A列には複数行のデータがあるのですか。その場合、どのような出力にしたいかも具体的に説明してください。

yupon

2019/10/31 13:56

Y.H.様おっしゃる通り、セルA1に「{'〇〇1': {'data_count': 132」セルA2に「, '〇〇2': {'data_count': 343」セルA3に「, '〇〇3': {'data_count': 333」なのですが、一番必要なのは一番右の数字(132、343、333）で、現在のやり方ですと数字の右側に } がついた状態となります。縦に並べかつ、数字の横の } を取り除きたいです。

yupon

2019/10/31 14:03

hatena19様以下のような形にしたいです。一番右の数字(132、343、333）が必要ですが、記載したマクロを実行すると数字の横に } が入り、これを除きたいです。　　　 A　　B　　 C　　・・・・・ 1行目　{'〇〇1': {'data_count': 132} 2行目　'〇〇2': {'data_count': 343} 3行目　'〇〇3': {'data_count': 333}

hatena19

2019/10/31 15:26

最終的に欲しい結果は何なんでしょう。それを例示してください。あと、数値は3桁固定ですか。変換したいデータは A1 だけですか。

yupon

2019/11/12 08:15

申し訳ありません。具体的に欲しい結果は、132、343、333です。三桁とは限らないです。

行動規範の内容に同意します

回答1件

ベストアンサー

質問の仕様が不明瞭なので、とりあえず、
TextToColumns Comma:=True の縦展開の場合のコード例

A1のテキストを、A2以下にカンマ区切りで分割して出力

vba
1Sub TextToRows()
2    Dim a As Variant
3    a = Split(Range("A1").Value, ",")
4    Range("A2").Resize(UBound(a) + 1).Value = WorksheetFunction.Transpose(a)
5End Sub

追記

はい、数字だけを縦にならべたいです。

とのことなので、
とりあえず A1セルに
{'〇〇1': {'data_count': 132}, '〇〇2': {'data_count': 343}, '〇〇3': {'data_count': 333}
というデータが入力されていて、それの 'data_count': の後の数値を取り出して、
A2セルから縦に出力するという場合のコード例を提示しておきます。

vba
1Sub NumsToRows()
2    Dim a As Variant
3    a = Split(Range("A1").Value, "'data_count':")
4    
5    Dim i As Long
6    For i = 1 To UBound(a)
7        Range("A1").Offset(i).Value = val(a(i))
8    Next
9End Sub