今日は、質問させていただきます。どうぞよろしくお願いいたします。
Excel2007でございます。
A列に
13.3483288757881 9.55166445333847 24.8030876776544
17.7550944828646 9.55166445333847 24.8030876776544
8.9415632687115 13.9584300604151 24.8030876776544
:
:
といった数字(空白2つで3つに別れております)が入っております。
これを空白でSplitして、それぞれをB,C,D列に入れたい次第でございます。
B C D
13.3483288757881 9.55166445333847 24.8030876776544
17.7550944828646 9.55166445333847 24.8030876776544
8.9415632687115 13.9584300604151 24.8030876776544
のような感じでございます。
そこでVBAで
Sub Split()
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets(1)
Do
行 = 行 + 1
temp = Split(.Cells(行, 1), " ")
For 列 = LBound(temp) To UBound(temp)
.Cells(行, 列 + 1) = temp(列)
Next
Loop While .Cells(行, 1) <> ""
End With
Application.WorksheetFunction = True
End Sub
といたしましたところ、「コンパイルエラー: 引数の数が一致していません。または不正なプロパティを指定しています。」とエラーメッセージが出てしまいます。
ネット上を検索いたしましたが、引数の数には問題ないようですので、
試しにtemp = Split(.Cells(行, 1), " ") → temp = Split(.Str(Cells(行, 1)), " ")
などと変更いたしましても同じエラーが出てまいります。
もし何か怪しそうな箇所を思いつかれる方がいらっしゃいましたら、是非アドバイス頂きたくお願いいたします。
お詳しい方がいらっしゃいましたら、どうぞよろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
Sub Split()
とプロシージャに既存のVBA関数と同じ名前を付けているからです。
同じ名前があるときは、近いところから参照しますので、
Split(.Cells(行, 1), " ") で自分自身を参照してしまってます。
Sub MySplit() というように既存関数と違う名前にするか、
temp = VBA.Split(.Cells(行, 1), " ")
というようVBAのSplitを参照するように明示するかですね。
ちなみに、結果をB,C,D列に入れたいのなら、
.Cells(行, 列 + 2) = temp(列)
ですね。配列のインデックスは 0 起点ですので。
hatena1989様
どうもありがとうございます!!
解決いたしました。なるほどサブルーチンを呼び出しに行っておりましたわけですか。。。^^; 全く原因が分かりませんでしたorz
あと
>配列のインデックスは 0 起点ですので。
についてもご指摘いただき誠にありがとうございました。
お教えいただいたお陰で一瞬で解決いたしました。
誠にありがとうございました!!m(_ _)m
No.3
- 回答日時:
他の方がおっしゃるとおり、マクロ名に予約語であるSplit()を使っているからエラーになります。
ついでに、最後から2行目は、
Application.ScreenUpdating = True
にしないとエラーになります。
どうもありがとうございます!!m(_ _)m
(締め切り後もお礼できるんですね、今知りました^^;)
締め切るとほぼ同時にご回答をいただいたようで、お礼をしたかったなー、と考えておりました。遅れて大変失礼いたしました。
>Application.ScreenUpdating = True
ご指摘いただきどうもありがとうございます。気づきませんでした^^;
このたびはご親切に誠にありがとうございました!!m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2022/04/01 12:11
- Visual Basic(VBA) vba 重複データ合算 5 2023/07/05 18:55
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 6 2022/06/08 12:55
- Visual Basic(VBA) 改行ごとに行を追加し、数量を分割 4 2023/07/11 16:39
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) vba 等間隔の列に対しての計算 6 2022/05/17 20:15
- Visual Basic(VBA) エラーコード1004 6 2022/06/09 14:12
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
split関数で区切り文字がない場合
Visual Basic(VBA)
-
Do~Loopした回数をカウントしたい
Visual Basic(VBA)
-
ADOを使ったDBアクセス後のメモリ解放
その他(データベース)
-
-
4
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
5
全ての変数を一気にリセットする方法はありますか?
PowerPoint(パワーポイント)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
実行時エラー450:引数の数が一致していません。または不正なプロパティを指定しています
Ruby
-
8
マクロの「Rangeメソッドは失敗しました’Globalオブジェクト」エラーの解決方法について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「段」と「行」の違いがよくわ...
-
エクセルで離れた列を選択して...
-
LEFT関数とIF関数の組み合わせ...
-
エクセルで住所を県と市・郡と...
-
Excelの行数、列数を増やしたい...
-
CSVファイルの「0落ち」にVBA
-
VLOOKUPの列番号の最大は?
-
エクセル 重複 隣の列 一番...
-
エクセルで複数列の検索をマク...
-
VBAで別ブックの列を検索し、該...
-
VBA 指定した列にある日時デー...
-
エクセルマクロの組み方
-
Accessのレポートで繰り返し表...
-
Alt+Shift+↑を一括で行うには、...
-
エクセルのソートで、数字より...
-
Excel 2007で複合グラフ(折線...
-
えABのある列って
-
エクセルマクロPrivate Subを複...
-
位置の違う列のデータを項目ご...
-
ExcelのVBAで複数行削除を行う場合
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで離れた列を選択して...
-
VLOOKUPの列番号の最大は?
-
「段」と「行」の違いがよくわ...
-
LEFT関数とIF関数の組み合わせ...
-
VBA 指定した列にある日時デー...
-
CSVファイルの「0落ち」にVBA
-
エクセルで複数列の検索をマク...
-
Excelの行数、列数を増やしたい...
-
エクセルマクロの組み方
-
エクセルマクロPrivate Subを複...
-
リストからデータを紐付けしたい
-
エクセルのソートで、数字より...
-
エクセルで住所を県と市・郡と...
-
VBAで別ブックの列を検索し、該...
-
Excel文字列一括変換
-
VBA
-
エクセル 重複 隣の列 一番...
-
列方向、行方向の定義
-
Alt+Shift+↑を一括で行うには、...
-
VBAで結合セルを転記する法を教...
おすすめ情報