Sheet(r + 1,dt.Cols("" & sta & "").Index).Style = Style '设置单元格的样式
改成
Sheet(r + 1, c).Style = Style '设置单元格的样式