1 编写方法
ActiveSheet.Unprotect '解除文件保护，如果放在Range("A1").Select下面，那么只是解除了这个单元格的受保护功能。
Sub refresh()
Dim Endxx
ActiveSheet.Unprotect '解除文件保护，如果放在Range("A1").Select下面，那么只是解除了这个单元格的受保护功能。
Range("A1").Select
h = Range("A1").CurrentRegion.Rows.Count
Next
Endxx = ("更新完毕！")
ActiveSheet.Unprotect '解除文件保护，如果放在Range("A1").Select下面，那么只是解除了这个单元格的受保护功能。
GotoEnd:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
MsgBox Endxx
然后利用基金编号从天天基金里面获取数据，再在对应行的每个单元格里面填充。
2、下面看效果