質問をすることでしか得られない、回答やアドバイスがある。

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

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

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

Q&A

解決済

1回答

1207閲覧

【マクロ VBA】選択範囲をRange,Cells,変数を用いて指定する方法について

g20tm016

総合スコア5

VBA

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

0グッド

0クリップ

投稿2021/08/25 11:02

前提・実現したいこと

ここに質問の内容を詳しく書いてください。
vbaでデータ整理のマクロを製作しております.
Range("Cells(1,1): Cells(28,3),Cells(1,j):Cells(28,k)").Select
の部分で下記のようなエラーが表示されます.
解決策をご教授頂きますと幸いです。

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

実行時エラー 1004 rangeメソッドは失敗しました globalオブジェクト

該当のソースコード

Sub データ整理()

Dim i As Long
i =1
Dim j As Long
j =4+(i-1)*144
Dim k As Long
k =147+(i-1)*144

 Do

'//1日ごとのデータコピー
ThisWorkbook.Activete
Range("Cells(1,1): Cells(28,3),Cells(1,j):Cells(28,k)").Select ←ここでエラー

'//新しいブックを製作
Set wk = Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'//日付と時刻の修正
Range("A4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormatLocal = "yyyy/m/d"
Range("B4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.NumberFormatLocal = "h:mm;@"
Range("C7").Select
'//名前を付けて保存
With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists("C:\Work") Then .CreateFolder "C:\Work"
End With
ActiveWorkbook.SaveAs "C:\Work\Booki.xls"

  i= i+ 1

    If i > 3 Then Exit Do
Loop

End Sub

試したこと

A1の表記でもうまくいかずCellsを使いましたが同様のエラーが生じました.

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

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

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

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

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

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

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

guest

回答1

0

ベストアンサー

VBA

1Range(Cells(1, 1).Address & ":" & Cells(28, 3).Address & "," & Cells(1, j).Address & ":" & Cells(28, k).Address).Select

投稿2021/08/25 11:21

jinoji

総合スコア4585

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

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

g20tm016

2021/08/25 13:36 編集

本当に助かりました.ありがとうございます
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.50%

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

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

質問する

関連した質問