- ベストアンサー
vba split関数 コンマ区切り
エクセル・vbaに不慣れなためわかりづらかったら申し訳ありません。 コンマ区切りの数字をsplit関数で分割して指定セルに表示したいと考えており、以前質問し回答をいただいた内容でやりたいことが出来るようになりました。 ただし、若干出力場所等の変更を行いたいのですが、変更することが出来ません。 以前はA～C列にあるものをE～H列・J～M列・O～R列に表示する。 その際、A～C列にあるコンマ区切りの数字は3つのものと４つのものがあります。画像の上段部分をご確認ください。 その際のマクロは下記のとおりです。 Sub Test() Dim i As Long, j As Long, k As Long Dim tmp As Variant For i = 1 To 3 For j = 3 To 11 tmp = Split(Cells(j, i).Value, ",") For k = 0 To UBound(tmp) If k < 4 Then Cells(j, i).Offset(0, i * 4 + k).Value = tmp(k) End If Next Next Next End Sub 変更したいのは、AC８～AE16にコンマ区切りの数字があります。 AC列にある数字はAI8～AL16にAD列にある数字はAS8～AV16に AE列にある数字はBC8～BF16に表示したいと考えています。 コンマ区切りの数字は3つのものと４つのものがあります。 （画像の下段部分をご確認ください。） 上記のマクロでは下記の部分を変更する必要なのかと考えていますが、変更方法がわかりません。 お分かりの方教えていただけたら幸いです。 どうぞよろしくお願いいたします。 For k = 0 To UBound(tmp) If k < 4 Then Cells(j, i).Offset(0, i * 4 + k).Value = tmp(k)
- yyyyy555
- お礼率36% (9/25)
- Visual Basic
- 回答数3
- ありがとう数1
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
> 下記の認識で間違えありません。 > > > AC列にある数字はAI8～AL16にAD列にある数字はAS8～AV16に > > AE列にある数字はBC8～BF16に表示したいと考えています。 > > こちらを採用しています。 回答No.1もしくは回答No.2のどちらでもいけると思いますので試してみてください。
その他の回答 (2)
- kkkkkm
- ベストアンサー率65% (1615/2454)
こちらのほうが分かりやすいでしょうか。 Sub Test2() Dim mRng As Range Dim i As Long Dim tmp As Variant For Each mRng In Range("AC8:AE16") tmp = Split(mRng.Value, ",") For i = 0 To UBound(tmp) If i < 4 Then Cells(mRng.Row, "AC").Offset(0, 6 + ((mRng.Column - Columns("AC").Column) * 10) + i).Value = tmp(i) End If Next Next End Sub
- kkkkkm
- ベストアンサー率65% (1615/2454)
添付画像の色付きのセルｎ範囲と説明のセル範囲が違いますが説明の方 > AC列にある数字はAI8～AL16にAD列にある数字はAS8～AV16に > AE列にある数字はBC8～BF16に表示したいと考えています。 こちらを採用しています。 Sub Test() Dim i As Long, j As Long, k As Long Dim tmp As Variant For i = Columns("AC").Column To Columns("AE").Column For j = 8 To 16 tmp = Split(Cells(j, i).Value, ",") For k = 0 To UBound(tmp) If k < 4 Then Cells(j, "AC").Offset(0, 6 + ((i - Columns("AC").Column) * 10) + k).Value = tmp(k) End If Next Next Next End Sub
関連するQ&A
- vba split関数 コンマ区切り
エクセルに不慣れなため教えていただけたら幸いです。 A３～A11・B3～B11・C3～C11列にコンマ区切りの数字があります。 列によってはコンマで区切られた数字が3つのものと4つのものが混在しています。 split関数でコンマ区切りの数字を分割してE～Ｈ列・J～M列・O～R列に表示したいと考えています。 先ほど別の質問で下記のマクロを教えていただいたのですが、 その際は、A１～A9にあるものをD～G列に表示するというものでした。 よくよく考えると、A列のみではなく、B・C列と複数の列を コンマ区切りしたいと考えています。 このような場合は、どうしたらよいでしょうか。 vba不慣れなためわかりづらかったら申し訳ありません。 お分かりになられるかたがいらっしゃいましたら教えていただけますでしょうか。 よろしくお願いいたします。 Option Explicit ' Sub Macro1() Dim Rout As Long Dim Colu As Integer Dim Expression As Variant ' For Rout = 1 To Cells(Rows.Count, "A").End(xlUp).Row Expression = Cells(Rout, "A") Expression = Split(Expression, ",") ' For Colu = 0 To UBound(Expression) Cells(Rout, Colu + 4) = Expression(Colu) Next Colu, Rout End Sub
- ベストアンサー
- Visual Basic
- vba split関数 コンマ区切りの数字を表示
エクセルに不慣れなため教えていただけたら幸いです。 A列にコンマ区切りの数字があります。 列によってはコンマで区切られた数字が3つのものと4つのものが混在しています。 split関数でコンマ区切りの数字を分割してD～G列に表示したいと考えています。 3つのものだけだとvbaを作成できたのですが、4つ目があるときというプログラムが不明です。 現在作成済みのマクロは下記のとおりです。 Sub test() Dim SH As Worksheet Dim i As Long Set SH = Worksheets("sheet1") For i = 1 To 9 SH.Cells(i, 4).Value = Split(SH.Cells(i, 1).Value, ",")(0) SH.Cells(i, 5).Value = Split(SH.Cells(i, 1).Value, ",")(1) SH.Cells(i, 6).Value = Split(SH.Cells(i, 1).Value, ",")(2) Next i End Sub お手数ですがお分かりになられるかたがいらっしゃいましたら回答いただけたら助かりますのでよろしくお願いいたします。
- ベストアンサー
- Visual Basic
- VBAでSplitエラーです
環境：Excel2002です Cells(1, 1)に(1)～(10),(13),(20)～(28)のような値があります Cells(1, 1)の値は別のプロシージャ求めていてその都度変わります Cells(j, 4)をスタート位置にして Cells(j, 4)に(1)～(10) Cells(j＋１, 4)に(13) Cells(j＋2, 4)に(20)～(28)を表示したいので 以下のプロシージャにしました Dim Str As String Str = ActiveSheet.Cells(1, 1).Value Dim i As Integer Dim j As Integer '◆カンマで区切った文字列をD列に格納 Dim tmp As Variant tmp = Split(Str, ",") j = 1 For i = 0 To UBound(tmp) ActiveSheet.Cells(j, 4) = tmp(i) j = j + 1 Next i あるブックでは正常に動作するのですが 別のブックでは以下のエラーメッセージがでて動作しません 【モジュールではなく、変数またはプロシージャを指定してください】 何が原因なのでしょうか？ご教示願います Splitを使わない別の方法があればそれでも結構です とにかく困っています
- ベストアンサー
- オフィス系ソフト
- (VBA)Splitの抜き出しが上手くいかない
以下のようなコードで「指定区切り文字」の前後で文字列を切り出しています。 添付画像見てもらえれば判ると思いますが B8セルからのB列の値が「29:08」が正解なのに 「29:08:00」と最後に「:00」が付いた形式になっています。 （B13で1時間を過ぎると正常になっています。） このため、以後のE及びF列の書き出しもおかしな値となりました。 どのように修正すれば良いでしょうか ？ Option Explicit Sub Chapter_Plus() Dim I As Long Dim J As Long Dim TEMP As Variant Dim SepChr As String Dim WS1 As Worksheet Dim WS2 As Worksheet Dim EndLow As Long Dim LineData As String Dim OutText As String Dim byteData() As Byte '一時格納用 Set WS1 = Worksheets("DATA") Set WS2 = Worksheets("Chapter") 'シートの初期化 WS1.Range("B3:H100").Clear WS2.Range("A1:A100").Clear SepChr = InputBox("指定文字を入力してください。", "区切り文字入力", " ") 'TotalLength = InputBox("時間を(h:mm:ss)で入力してください。", "ファイルサイズ入力") EndLow = WS1.Cells(Rows.Count, "A").End(xlUp).Row With WS1 '区切り文字で切り出す For I = 3 To EndLow TEMP = Split(.Cells(I, "A"), SepChr) .Cells(I, "B") = TEMP(0) .Cells(I, "C") = TEMP(1) Next '仮チャプター書き出す For I = 3 To EndLow .Cells(I, "E").Value = Format(.Cells(I, "B").Value, "hh:mm:ss") .Cells(I, "F").Value = Format(.Cells(I + 1, "B").Value, "hh:mm:ss") .Cells(I, "G").Value = .Cells(I, "C").Value Next '番号 For I = 3 To EndLow .Cells(I, "H").Value = CStr(Format(I - 2, "'00")) Next End With End SUB
- ベストアンサー
- Excel（エクセル）
- VBA ファイルの内容を並べ替えたい
csvファイルを別のファイル(エクセル)に並べ替えて保存したいと考えてVBAでプログラムを 書いてみたのですがうまくできないので解決策をご教示いただけないでしょうか。 960行640列のデータを，「行，列，値」←エクセルでいうとA列＝行，B列＝列，C列=値 の形に並べ替えようとしています。 行 列 値 1 1 28 1 2 10 1 3 0 ・ ・ ・ ・ ・ ・ 960 640 37 といった具合です。 実行すると，行と列は並べ替えて表示されるのですが，値だけはどの行でも同じ値が入ってしまいます。元のデータでは値はランダムです。 書いたプログラムを下に載せます。 配列tmpのインデックスがループを追うごとに変化しないことが原因かと考えていますが， 変数nを追加して ”For tmp = 0 To UBound(tmp) Next n” を ”For j = 1 To 640 Next j” の中に入れてみましたが(これでは意図と違う表示がされそうですが)，結果はおなじでした。 配列tmpの中身を，対応するセルに一つ一つ入れていくにはどのようにしたら良いのでしょうか。 本やネットの情報をつまみ食いして書いているので，理屈やスマートな書き方など よくわかっておらず，見苦しいものかとも思いますがどうぞよろしくお願いします。 ------------------------------ Sub 並べ替え() Dim i As Long, j As Long, m As Long Dim buf As String, tmp As Variant Open "ファイル" For Input As #1 m = 1 Input #1, buf tmp = Split(buf, ",") Cells(1, 1).Value = "X" Cells(1, 2).Value = "Y" Cells(1, 3).Value = "Z" For i = 1 To 960 For j = 1 To 640 m = m + 1 Cells(m, 1).Value = i Cells(m, 2).Value = j Cells(m, 3).Value = tmp Next j Next i Close #1 ChDir "新しいファイル" ActiveWorkbook.SaveAs Filename:="新しいファイル", _ FileFormat:=xlCSV, CreateBackup:=False End Sub ---------------------
- ベストアンサー
- Visual Basic
- (VBA)Split関数を使った文字列の区切りについて教えて頂けますでしょうか？
VBA初心者でSplit関数を使った文字列の区切りがどうしてもうまくいかず非常に困っております。 アドバイス頂けますでしょうか。宜しくお願い致します。 詳細を説明させて頂くと、 (1)エクセルシートのA2セルからA？？までの各セルにスペースを含んだ文字列がそれぞれ入力されており、そのそれぞれのセルをスペースで区切ってまず表示させる。 ※データは常にシートのA２からはじまりA3, A4,・・・と不特定に数十行あります （具体例は添付ファイルをご覧頂けますと幸いです。※画像が多少見づらいのですが、画面上のほうがもともとの表で、下の方が完成させたいイメージです。） そして、実際にトライしてみたVBAのソース・・・（本当お恥ずかしいというか 情けないですが。。） Sub data_split() Dim buf As String, tmp, cnt As Long, I As Long cnt = 2 buf = ThisWorksheet.Cells(cnt, 1).Value 'ループ処理(1)（２行目からセルが空になるまで行う処理） Do Until Cells(cnt, 1) = "" cnt = cnt + 1 tmp = split(buf, "") ' データ（文字列）をスペースで区切って出力。 For I = 0 To UBound(tmp) Cells(cnt, I + 1) = tmp(I) Next I Loop End Sub (2)A列からD列までの文字列はそのままで、E列以降（F,G、H・・・）に入った文字列はすべてまとめてE列の各セルに入力させたい。 'AからDまでのセルに入ったセルはそのままでよい。 'E以降の区切られたデータは全部Hセルに入力する VBA初心者なのですが、仕事上、取り急ぎこのようなイメージのVBAを作成しないといけないのですが、本やサイトを見ていろいろと試みているのですがどうしてもうまくいかず非常に困っております。。どうぞ宜しくお願い致します。 参考にしたサイト：http://officetanaka.net/excel/vba/tips/tips62.htm
- ベストアンサー
- オフィス系ソフト
- 【Excel VBA】カンマ毎にデータを区切る
はじめて質問をさせて頂きます。 Excel VBAは初心者です。 仕事で必要なため、本を読みながら考えておりましたが、 手も足も出ない状態です。 【質問内容】 Excel VBAにて、ExcelファイルのA列のみに格納されているデータを カンマ「,」の位置毎に区切ります。 ※格納されているデータ例：A,B,C,D,E Excelの区切り位置にて、カンマで区切る処理と同じです。 A1から処理を開始し、A列のデータがなくなるまで 上記の処理を行います。 下記のプログラムを実行すると、1行目は正常にカンマ毎に 区切られますが、2行目以降はカンマ毎に区切られず、 そのままの状態です。 どこに問題があり、どのように修正すれば良いのでしょうか、 ご教示頂けると助かります。宜しくお願いします。 【プログラム】 Sub カンマ毎に区切る() Dim mydata As String Dim myArray() As String Dim i, j As Integer j = 0 Do While Cells(j + 1, "A").Value <> "" mydata = Cells(j + 1, 1) myArray() = Split(mydata, ",") For i = 0 To UBound(myArray) Cells(1, i + 1).Value = myArray(i) Next j = j + 1 Loop End Sub
- ベストアンサー
- Visual Basic
- Excel 文字列を区切る VBA 質問
A列にスペース区切りのデータがあります これをC列 D列 に分けて表示したいのですが A列のデータが不規則（個数がバラバラ 空白もある） と、なった場合 なかなか上手くいきません C列以降は使用可能です（空いてます） その道の方 お助けたください 元のVBAは Sub Sample3() Dim i As Long, tmp As Variant For i = 2 To 22 tmp = Split(Cells(i, 1), " ") Cells(i, 2) = tmp(0) Cells(i, 3) = tmp(1) Next i End Sub です お手数ですが宜しく お願いします
- ベストアンサー
- Visual Basic
- VBAtest
VBAおｎ以下の Sheets("ＯＰ").Select Dim atai As String atai = Cells(2, 2).Value Dim datedata(40) As String For j = 0 To 40 If Cells(j + 3, 2).Value = "" Then Else datedata(j) = Cells(j + 3, 2).Value End If Next Dim shihyou As String For i = 1 To 2 shihyou = Cells(2, i + 2).Cells.Value Sheets(shihyou).Select Dim tmp_c As Integer For r = 1 To 10 tmp_c = 0 For c = 1 To 10 If tmp_c = 0 Then If Sheets(shihyou).Cells(r, c).Value = atai Then tmp_c = c End If Else Dim vals(40) As String For k = 0 To 40 For l = 1 To r + 41 For m = 1 To tmp_c - 1 If Sheets(shihyou).Cells(l, m).Value = datedata(k) Then vals(k) = Sheets(shihyou).Cells(l, tmp_c).Value End If Next Next Next End If Next Next Sheets("ＯＰ").Select For k = 3 To 43 Cells(k, i + 2).Value = vals(k - 3) Next Next End Sub
- 締切済み
- その他（インターネット・Webサービス）
- VBA 請求データ一覧からの複数の処理
先週 kkkkkmさんに質問をさせて頂きまして、 いろいろご指導を頂いたものです。 続編の様な形になってしまいますが、 抽出するデータの環境設定を変更致しました。 ご質問させて頂く内容は前回とほとんど変更がないのですが、 あらためて下記に記載させて頂きます。 <Worksheet1のデータ> Ｊ列～AM列までが課税金額 「J,K,L」「M,N,O」・・・「AK,AL,AM」と3列1組（コード・費目・金額） 1組の行もあれば、複数組の行もあり。 AN列～BB列までが非課税金額 課税金額と同じく3列1組 1組の行もあれば、複数組の行もあり。 「BC」=消費税、「ＢＤ」=合計金額 ※AN列の前に不規則な空白セルあり BC列の前に不規則な空白セルあり 文章で上手く説明出来ているか自信がありませんので、 エクスポートした元データ Worksheet1と、 vbaを用いて作成した Worksheet3 をご参考に添付致します。 Worksheet1の2行目がWorksheet3の2行目に対応しています。 3行目、4行目も同様です。 不規則な空白が原因でしょうか・・・。 M列、O列は問題ないのですが、 金額が合わなかったり、N列に金額を引いてこないのです。 実行しているコードは下記になります。 Dim i As Long, j As Long, k As Long Dim Ws1 As Worksheet, Ws2 As Worksheet, Ws3 As Worksheet Dim mTotal(4) As Long Dim LastRow As Long Dim List(4) As Variant Set Ws1 = Sheets("Sheet1") Set Ws2 = Sheets("Sheet2") Set Ws3 = Sheets("請求書ひな形") List(1) = Ws2.Range(Ws2.Cells(1, "A"), Ws2.Cells(Rows.Count, "A").End(xlUp)).Value List(2) = Ws2.Range(Ws2.Cells(1, "B"), Ws2.Cells(Rows.Count, "B").End(xlUp)).Value List(3) = Ws2.Range(Ws2.Cells(1, "C"), Ws2.Cells(Rows.Count, "C").End(xlUp)).Value List(4) = Ws2.Range(Ws2.Cells(1, "D"), Ws2.Cells(Rows.Count, "D").End(xlUp)).Value LastRow = UBound(List(1)) For i = 2 To 4 If LastRow < UBound(List(i)) Then LastRow = UBound(List(i)) End If Next For i = 2 To Ws1.Cells(Rows.Count, "J").End(xlUp).Row mTotal(1) = 0 mTotal(2) = 0 mTotal(3) = 0 mTotal(4) = 0 For j = Columns("J").Column To Columns("BB").Column Step 3 For k = 2 To LastRow If UBound(List(1)) >= k Then If Ws1.Cells(i, j).Value = List(1)(k, 1) Then mTotal(1) = mTotal(1) + Ws1.Cells(i, j).Offset(0, 2).Value Exit For End If End If If UBound(List(2)) >= k Then If Ws1.Cells(i, j).Value = List(2)(k, 1) Then mTotal(2) = mTotal(2) + Ws1.Cells(i, j).Offset(0, 2).Value Exit For End If End If If UBound(List(3)) >= k Then If Ws1.Cells(i, j).Value = List(3)(k, 1) Then mTotal(3) = mTotal(3) + Ws1.Cells(i, j).Offset(0, 2).Value Exit For End If End If If UBound(List(4)) >= k Then If Ws1.Cells(i, j).Value = List(4)(k, 1) Then mTotal(4) = mTotal(4) + Ws1.Cells(i, j).Offset(0, 2).Value Exit For End If End If Next Next Ws3.Cells(i, "J").Value = mTotal(1) Ws3.Cells(i, "K").Value = mTotal(2) Ws3.Cells(i, "L").Value = mTotal(3) Ws3.Cells(i, "N").Value = mTotal(4) Ws3.Cells(i, "M").Value = Ws1.Cells(i, "BC").Value Ws3.Cells(i, "O").Value = Ws1.Cells(i, "BD").Value Next Set Ws1 = Nothing Set Ws2 = Nothing Set Ws3 = Nothing End Sub 本当に何度も申し訳ございません。 お時間がある時に見て頂けると有り難いです。 どうぞ宜しくお願い致します。
- ベストアンサー
- Excel（エクセル）
お礼
補足
確認不足で申し訳ありません。 セルの色を変えている部分が誤りです。 下記の認識で間違えありません。 > AC列にある数字はAI8～AL16にAD列にある数字はAS8～AV16に > AE列にある数字はBC8～BF16に表示したいと考えています。 こちらを採用しています。