Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Professional : Excel 2010)
ピボットテーブル 範囲指定の方法
投稿日時: 19/08/29 14:51:39
投稿者: ふしぎちゃん

お世話になります。
 
VBAの初心者なので
マクロの記録から編集しているのですが
ピボットのマクロがうまくできません。
範囲指定のところで、最終行を取得しようとして
次のような構文を作成しました。
Sub Macro1()
     
    Dim lastrow2 As Long
 
    Sheets("データ貼付").Select
    lastrow2 = Cells(Rows.Count, 1).End(xlUp).Row
 
    Range("R1:AZ1").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        Sheets("データ貼付").Range(cells(1,28),cells(lastrows2,52), Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="比較!R2C1", TableName:="ピボットテーブル1", DefaultVersion:= _
        xlPivotTableVersion10
 
End Sub
 
コンパイル エラー 区切記号または)
 
とでます。
 
セルの範囲選択方法をさわったので、そこが違うのかと思いますが
どうしたらよいかわかりません。
 
よろしくお願いいたします。
 

回答
投稿日時: 19/08/29 15:22:12
投稿者: simple

とりあえずの指摘としては、
Range(cells(1,28),cells(lastrows2,52),
対応するカッコがない、という点ですかね。

投稿日時: 19/08/29 15:27:28
投稿者: ふしぎちゃん

simple さんの引用:
とりあえずの指摘としては、
Range(cells(1,28),cells(lastrows2,52),
対応するカッコがない、という点ですかね。

 
simple さん
ありがとうございます。
 
その通りです。
お恥ずかしい限りです。
 
本当に、助かりました。