实例21:多字段分类汇总-类数据透视表格式的汇总-加载宏http://club.excelhome.net/dispbbs.asp?boardid=2replyid=570898id=195189page=1skin=0Star=3PrivateSubUserForm_Initialize()UserForm6.HideWithSheets(UserForm6.ComboBox_DataShName.Value)arr=.Range(.Cells(1,1),.Cells(1,.[iv1].End(xlToLeft).Column))EndWitharr=Application.Index(arr,1,0)ListBox_Column.List=arrComboBox_Row.List=arrComboBox_...