🎄teratailクリスマスプレゼントキャンペーン2024🎄』開催中!

\teratail特別グッズやAmazonギフトカード最大2,000円分が当たる!/

詳細はこちら
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

554閲覧

最後列に列が追加できません。

shu_shu

総合スコア10

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2020/12/18 06:47

前提・実現したいこと

VBAで表の一番右に1列追加したいです。

発生している問題・エラーメッセージ

実行時エラー'13': 型が一致しません。

該当のソースコード

VBA

1Sub 列追加() 2 3 Dim i As Long 4 5 i = 1 6 7 If Worksheets(2).Cells(1, i).Value <> "" Then 8 9   '↓ここでエラーが出来ます↓ 10 Columns(Cells(1, i)).Insert 11 12 End If 13 14 i = i + 1 15 16End Sub 17

試したこと

Columns(Cells(i)).Insert Range(1, i).EntireColumn.Insert

補足情報(FW/ツールのバージョンなど)

ここにより詳細な情報を記載してください。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

ここを

vba

1Columns(Cells(1, i)).Insert

こうでエラーは出ないです。

vba

1Columns(i).Insert

一番右になってないですが、、、

投稿2020/12/18 07:01

編集2020/12/18 07:02
radames1000

総合スコア1925

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

shu_shu

2020/12/18 07:49

ありがとうございました。無事解決できました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.36%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問