Excel2010使用者、VBA初心者です。
複数のファイルを1つのエクセルに統合するマクロをネット上で見つけたのでそれを活用しているのですが、空白セルの一部が長さ0の文字列のまま残ってしまうため、一気にNullに変換したいと思っています。ネットで色々と調べてコードを追加してみたのですが、どうしても上手くいきません。
下記のコードに何を追加すれば最後に一気に空白をNullにできるでしょうか?ご教授頂けると助かります。どうぞよろしくお願い致します。
Sub ExcelbookCombine()
'結合したいファイルがあるフォルダの場所 cドライブなら "C:\test\"
Const Fol As String = "C:\test\"
Dim Fn
Dim NewFile As Workbook
Dim Wb As Workbook
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Dim R As Range
Set NewFile = Workbooks.Add
Set Ws1 = NewFile.Worksheets(1)
Set R = Ws1.Range("A2")
Fn = Dir(Fol, vbNormal)
Do Until Fn = ""
Set Wb = Workbooks.Open(Fol & Fn)
'ワークシート1をコピーする場合は Wb.Worksheets(1)
'ワークシート2をコピーする場合は Wb.Worksheets(2)
Set Ws2 = Wb.Worksheets(1)
'Aの1行目から8列目までをコピーして結合する
Ws2.Range("A2", Ws2.Cells(Rows.Count, 1).End(xlUp)).Resize(, 22).Copy R
Set R = R.End(xlDown).Offset(1)
Application.CutCopyMode = False
Wb.Close
'Debug.Print Fn
Fn = Dir
Loop
Set R = Nothing
Set Ws1 = Nothing: Set Ws2 = Nothing
Set Wb = Nothing: Set NewFile = Nothing
End Sub
↑このコードできちんとエクセルは統合できています。
No.1ベストアンサー
- 回答日時:
こんばんは。
まず、失礼ですが、用語で、「統合(Consolidate)」というのは、Excelのメソッドのひとつですから、今回は、単に、データが合わさっただけのようですね。
それと、Null というのは、VBAでは、Null値といって、Variant型に入れる特別な値のことで、ワークシートで、Nullという言葉は使われているようですが、VBA側からは、単にEmptyのことを言うようです。(いわゆる完全な空の状態)
>空白セルの一部が長さ0の文字列のまま残ってしまうため、一気にNullに変換したいと思っています。
長さ0の文字列を取るための方法は、範囲をClearContents で行うか、
細かい選別をする場合は、
範囲.SpecailCells(xlCellTypeConstants,xlTextValues) を使い、その個々のセルの内容をループして、Len 等で調べてClearContents を使うか、
With 範囲
.Value = .Value
End With
とすれば、長さ0の文字列は消えます。
試してみてください。ダメだったら、もう少し詳しい情報が必要になるかもしれません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAで教えて頂きたいのですが? 2 2022/12/31 20:28
- Visual Basic(VBA) 2つ目のコンボボックスが動作しません。 3 2023/03/25 12:29
- Visual Basic(VBA) 別ブックからシートのコピー 3 2022/04/01 20:07
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) 2つのシートの任意のセルの番号が一致したら、一致した行をコピーする VBA 2 2023/06/19 20:48
- Visual Basic(VBA) 特定の文字を含むシートだけマクロ処理をしたい 1 2023/05/22 01:43
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルVBA 長さ0の文字列をNullに
その他(Microsoft Office)
-
IF関数で空欄(")の時、Nullにしたい
その他(Microsoft Office)
-
Excelの空文字セルの削除方法を教えてください
Excel(エクセル)
-
-
4
空白セルを空セルに置き換える方法(エクセル)
Excel(エクセル)
-
5
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
6
Access サブフォームでの選択行の取得
その他(データベース)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
9
Integer変数をカラにしたいのですが
Visual Basic(VBA)
-
10
VBA .Value=.Value ?
Excel(エクセル)
-
11
IF関数でEmpty値を設定する方法。
Excel(エクセル)
-
12
AccessでのNullと長さ0の文字列につきまして
Access(アクセス)
-
13
ADO VBA 実行時エラー3021
Visual Basic(VBA)
-
14
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
15
選択したチェックボックスのみチェックを入れたいのですが
その他(データベース)
-
16
VBAのAccessでDATE型のINSERT
その他(データベース)
-
17
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
18
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
19
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
20
yes/no型のチェックができない(アクセス2003)
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【エクセル】異なったシートの...
-
エクセル ブック全体 セル結...
-
Excelのサイズが小さくなりません
-
エクセルで別シートにある数字...
-
Excelマクロの大量行の処理速度...
-
★★エクセル 縦の表を横に表示...
-
=IF(平成18年度!C9<>"",平成...
-
シートのコピー
-
エクセルの切り取りと貼り付け...
-
VBAで長さ0の文字列をNullに変...
-
excel vba 非表示のシートに入...
-
EXCEL VBAでコピーす...
-
ウインド枠の固定
-
エクセルの範囲指定を規則的に...
-
onedriveの中身を削除したらパ...
-
嫌ってるのに真似してきたりマ...
-
Winmerge ファイルの中身は同じ...
-
バッチファイルで変数の中身を...
-
ファイルの先頭行を全て削除したい
-
Windows10 フォルダ内の自動並...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel で3行目、6行目、9行目...
-
エクセルの切り取りと貼り付け...
-
excel vba 非表示のシートに入...
-
【エクセル】異なったシートの...
-
VBAで長さ0の文字列をNullに変...
-
エクセル セル内の文字列を他...
-
エクセル ブック全体 セル結...
-
エクセルの範囲指定を規則的に...
-
EXCEL中のSHEET名の検索方法
-
EXCEL VBAでコピーす...
-
Excelのサイズが小さくなりません
-
エクセルの表のセル幅のみロッ...
-
エクセルで、コピー貼り付けが...
-
エクセルの表組み、セルの固定...
-
エクセルの行を固定したい
-
EXCELでシートのデータを別のシ...
-
エクセルで同じブック内のシー...
-
縦書きのトーナメント表の作り方
-
windowsではできるハイパーリン...
-
Excelのシートに別のシートの表...
おすすめ情報