1.散点图的制作必须只选择xy轴对应的数据,不能选中标签. 2.调整xy轴交叉点,改为四个象限. 3.通过菜单移动散点图到新表. 4.运行宏,打上文本标签. VBA如下 Sub AttachLabelsToPoints() 'Dimension variables. Dim Counter As Integer, ChartName As String, xVals As String ' Disable screen updating while the subroutine is run.…
说明(2017.3.25): 1. split(str,"-")和join(arr,",")函数,用法跟其他语言差不多. 2. filter函数,filter(数组,字符串,true/false)判断一个字符是否在数组中,返回满足条件的元素组成一个数组 'filter函数,filter(数组,字符串,true/false)判断一个字符是否在数组中,返回满足条件的元素组成一个数组 Public Sub test1() Dim arr, arr2, arr3 arr =…