那就是说你的代码没有放在当前表里面吧理解错了，如果放在当前表（Site Data）里面是没有问题的，你试试
with Sheets("Site Data")Set panel_range = .Range(.Cells(4, 6), .Cells(8, 6))end with
