Excel2013>VBA>sendkeys動ず

質問

Excel2013のVBAを使って自動更新をしようと思っています。
　　　A　　B　　 C
１　　あ　　AA　　0
２　　い　　AB　　1
３　　う　　AC　　0
４　　え　　AA　　1
５　　お　　AA　　0

上記のようにシート内にデータはあります。B列「AA」C列の「ゼロ」を更新してC列の値を「1」にしようとしたときに、ピボットテーブルを使ってみようと思いました。
ピボットテーブルにてB列の「AA」、C列の「ゼロ」を抽出表示しました。

　　A　　B　　C
１　あ　　AA　　0
５　お　　AA　　0

思っていたように1行目と5行目が抽出されました。
後はゼロを別の値（仮に「2」とします）に変更するときに、カーソルの移動がうまくいきませんでした。
Range("C1").End(xlDown).Select
Do
ActiveCell.Offset(0, 0) = "2"
ActiveCell.Offset(-1, 0).Select
If Len(ActiveCell.Offset(0, 0)) = 0 Then
Exit Do
End If
Loop
しかし、これではカーソルが「C4」に移動してしまいました。
ピボットテーブルでたたんでしまっても、カーソルは見えないセルに移動するようです。
そこで、下記のように変更しました。
Range("C1").End(xlDown).Select
Do
ActiveCell.Offset(0, 0) = "2"
Application.SendKeys "{UP}"
If Len(ActiveCell.Offset(0, 0)) = 0 Then
Exit Do
End If
Loop
これは、カーソルがまったく動かずに最初の地点にいたままでした。
そこで、次はTABで移動することにしました。
Range("C1").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Do
ActiveCell.Offset(0, 0) = "2"
Application.SendKeys "{tab}"
If Len(ActiveCell.Offset(0, 0)) = 0 Then
Exit Do
End If
Loop
これでもカーソルは動きませんでした。

どうにかしてsendkeysの動かし方、もしくは更新でもっとうまいやり方をご存知の方、是非教えてください。よろしくお願いいたします。

回答No.1

ap_2 · ベストアンサー

Row.hidden で「行が非表示か」をチェックできます。

　Do　'ひとつ上の非表示ではないセルを選択
　　ActiveCell.offset(-1,0).select
　Loop While ActiveCell.EntireRow.Hidden

あるいは、SendKeysを使う場合「ボタンから実行」します。
VBAエディタ上でF5実行とかすると、エディタに対してキーを投げちゃうので、コードにTABが増えてると思いますよ。

お礼

ap_2さん、コメントありがとうございます。
hiddenは「見せないための関数」と思いきや、「見えない部分の関数」だったのですね。とても驚いています。
頂いた内容をマクロに反映させて無事に作成できました。ありがとうございました。
追伸
sendkeysを実行すると確かにエディタの中が大変なことになりました。何故そこだけエディタに投げてしまうのか？？？
不思議だったのですが、すっきりしました。合わせて感謝！！！