
EXCELのA列に下記のような値が入っています。
-----------
"aaa
bb
cccc"
-----------
"ddd"
-----------
""
-----------
"eee
fff
ggg
hhh"
-----------
といったようにセルの中の値に改行があったり、
なかったり、値すらなかったりといった感じです。
これを改行区切りで配列に入れたいんですが、いい方法ありませんか?
上の内容を下記のような配列にしたいんです。
arrValue=Array("aaa","bb","cccc")
arrValue=Array("ddd")
arrValue=Array("")
arrValue=Array("eee","fff","ggg","hhh")
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
こんばんは。
ターゲットとなるセルをCells(y,x)とすれば
arrValue=Split( Cells(y,x).Value , vbLf )
でできそうです。 EXCEL 2010 で確認しました。
ただし、セル値に入力されていない場合(上の例では3行目)はエラーになるので、例外処理しておいた方がよいですね。
お返事遅くなりました。
SPLIT関数っていうのがあったんですね。
区切り文字もchr(10)で判断しようとしてましたが、vblfは分かりやすくていいですね。
とてもシンプルな式でこんなのを望んでいました。
ありがとうございましたm(_ _)m
No.5
- 回答日時:
こんにちは、参考に
Sub Test()
Dim arrValue(), v As Variant
Dim c As Range, i As Long, j As Long
i = -1
For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp))
If c.Value = "" Then
i = i + 1
ReDim Preserve arrValue(i)
arrValue(i) = ""
Else
v = Split(c.Value, vbLf)
For j = 0 To UBound(v)
i = i + 1
ReDim Preserve arrValue(i)
arrValue(i) = v(j)
Next
End If
Next
'<<< 配列確認 >>>
For i = 0 To UBound(arrValue)
MsgBox arrValue(i)
Next
End Sub
No.4
- 回答日時:
配列としてデータを読み取りたいという要望ですが、
取扱可能なデータとして取り込む方法を書きます。
その方が実状に合っている気がしますので。
処理対象データがA1-A4セルにあるとして、
Dim A,B,C
Dim AA
Dim AAA()
ReDim AAA(4,10)
'4:処理対象データの数,10:処理対象データの中に存在する改行文字(Cahr(10))の想定最大値+1
For A=1 To 4
'処理対象データ:AAを取得
AA=Cells(A,1).Valu
'処理対象データの中に存在する改行文字数:Bを算定
B=Len(AA)-Len(Replace(AA,Chr(10),""))
If B>0 Then
For C= 1 To B
'処理対象データのうち、左方より1番目の改行文字から左方の値を取得
AAA(A,C)=Left(AA,Instr(AA,Chr(10)-1)
'処理対象データのうち、左方より1番目の改行文字から右方の値を取得
AA=Right(AA,Len(AA)-Instr(AA,Chr(10))
Next C
'処理対象データのうち、最右方の改行文字から右方の値を取得
AA(A,C+1)=AA
Else
AAA(A,1)=AA
End If
Next A
AAA(A,B+1)から要求されるデータを引き出せます。
ちなみに AAA(4,2)="fff" です。
No.3
- 回答日時:
とりあえずA列にデータがあるとして B列から横方向1個の配列ごとにデータを入力していきます。
Sub Sample1()
Dim myArray() As String
Dim i As Long, j As Long
Dim c As Range
j = 2
For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
myArray() = Split(c.Value, vbLf)
For i = 0 To UBound(myArray)
Cells(i + 1, j).Value = myArray(i)
Next i
j = j + 1
Next
End Sub
No.1
- 回答日時:
以下のFunctionを標準モジュールに設定
Public Function GetArray(ByVal Target As Range) As Variant
If Target.Count > 1 Then Exit Function '複数のセルが渡されたらExit
GetArray = Split(Target.Value, vbLf) 'Splitを使い vbLfで分割し配列生成
End Function
使用例
Public Sub Try()
Dim Area As Range,rng As Range
Dim v() As Variant
Dim i As Long
'範囲指定
Set Area = Range("A1:A4")
'セルの数だけ配列を確保
ReDim v(Area.Count - 1) As Variant 'この場合v(0)からv(3)までの4つ確保
'指定範囲のセルを列挙
For Each rng In Area
'自作関数にrngを渡し配列を得る
v(i) = GetArray(rng)
i = i + 1
Next
Stop 'ここで止まるのでローカルウィンドでvの中身を確認
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- C言語・C++・C# c言語の問題です 課題1 (二分探索木とセット) 大きさ size の配列 array を考える。す 2 2023/01/10 21:08
- PHP 配列の値の更新方法について 1 2022/08/05 09:49
- PHP ファイルの書き込みについて教えて下さい。 1 2023/03/20 12:01
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/02/07 09:58
- Visual Basic(VBA) 型が一致しませんとエラー 6 2023/07/06 20:14
- PHP PHPでCSVを出力するさいに、ループの中で前の行の値を変更したい 1 2022/10/27 14:21
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- その他(プログラミング・Web制作) listへのappendが出来ない件 1 2022/12/06 21:44
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- PHP PHPでCSVを出力するさいに、ループの中で前の行の値を変更したい 3 2022/10/27 17:44
このQ&Aを見た人はこんなQ&Aも見ています
-
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
Excel マクロ VBA セル内で改行された文字列の分割
Excel(エクセル)
-
エクセルVBAで、複数セルのデータをひとつのセルに改行してまとめたいのですか・・・
Excel(エクセル)
-
-
4
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
5
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
6
Excel マクロ:変数を複数使う場合
Excel(エクセル)
-
7
「Columns(A:C")」の列文字を数字にして表記したい"
Excel(エクセル)
-
8
VBAで「メモリが不足しています」
Visual Basic(VBA)
-
9
メッセージボックスの非モーダル化について
Visual Basic(VBA)
-
10
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
11
VBAの配列サイズとメモリに関して
Visual Basic(VBA)
-
12
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
13
【Excel VBA】 B列に特定の文字列があった場合にA列の値を変更する
Visual Basic(VBA)
-
14
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
15
読み込みで一行おきに配列に格納
Visual Basic(VBA)
-
16
【VBA】 Alt+PrintScreenにてアクティブウィンドウのスクショを貼付する方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
表にフィルターをかけ、絞った...
-
[エクセル]連続する指定範囲か...
-
エクセルで、絶対値の平均を算...
-
ExcelのINDEXとMATCH関数でスピ...
-
配列がとびとびである場合の書き方
-
Excelのセルの色指定をVBAから...
-
Excel オートフィルタのリスト...
-
配列のSession格納、及び取得方...
-
エクセル 条件を指定した標準...
-
CSVファイルの読み込みと表示(V...
-
DataSetから、DataTableを取得...
-
読み込みで一行おきに配列に格納
-
【VBA】ユーザーフォーム リス...
-
array関数で格納した配列の型を...
-
iniファイルのキーと値を取得す...
-
【Excel】VLOOKUP検索値が複数...
-
Sessionに格納した二次元配列を...
-
Datatableへの代入
-
2次元配列への格納方法について
-
Excel VBA 配列の分割について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで、絶対値の平均を算...
-
[エクセル]連続する指定範囲か...
-
表にフィルターをかけ、絞った...
-
ExcelのINDEXとMATCH関数でスピ...
-
Excelのセルの色指定をVBAから...
-
Excel オートフィルタのリスト...
-
DataSetから、DataTableを取得...
-
array関数で格納した配列の型を...
-
読み込みで一行おきに配列に格納
-
.NET - 配列変数を省略可能の引...
-
【VBA】ユーザーフォーム リス...
-
配列がとびとびである場合の書き方
-
SUMPRODUCT関数を用いた最小値
-
iniファイルのキーと値を取得す...
-
VBAでの100万行以上のデータの...
-
エクセルでエラーを無視して一...
-
配列のSession格納、及び取得方...
-
VBA 配列に格納した値の平均の...
-
VB6.0 ファイルの一括読込み
-
Datatableへの代入
おすすめ情報