Question

请大神帮忙修改一段vba代码，只需要将数据源转到另外一个工作表中？

这个功能是依据地区数量自动更改地图颜色，现在数据源和地图，都在工作表（热力地图）中，我现在想把数据源更改到（sheets1）中，但是如何改都报错，请大神帮忙。
Private Sub CommandButton1_Click()
For i = 2 To 5
Range("地区").Value = Range("热力地图!A" & i).Value
ActiveSheet.Shapes(Range("地区").Value).Select
Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("填充颜色").Value).Interior.Color
Next i
End Sub
我是想把数据源直接移到sheet1同样的地方，不是更改地图后再把数据复制到sheet中哦，谢谢大神帮忙处理





Answer 1

你没说清楚，默认工作表热力地图所有区域都是数据源。

只需要在你的For i = 2 To 5这句前面加入下面两行
LastRow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1 'Sheet1第一个空行
Sheets("热力地图").UsedRange.Copy Sheets("Sheet1").Cells(LastRow, 1) '整个热力地图数据复制到Sheet1第一个空行开始
如图Sheet1本来整张为空，第一次运行会产生第一行为空行，看个人需要删除或保留

Answer 2

这个更改需要上传文件的。