将不同范围添加到图表中的同一系列

Question

Error " Wrong number of arguments or invalid property assignments"

Please Help!!

ch.SeriesCollection(1).XValues=sh.Range(Cells(38, 10), Cells(39, 10) &","& Cells(49,10),Cells(50,10))

Answer 1

I think this is what you were going for.

    ch.SeriesCollection(1).XValues = sh.Range( _
                                        sh.Range(sh.Cells(38, 10), sh.Cells(39, 10)).Address & _
                                        "," & _
                                        sh.Range(sh.Cells(49, 10), sh.Cells(50, 10)).Address _
                                     )

But its much better to be written like:

    ch.SeriesCollection(1).XValues = Union( _
                                        sh.Range(sh.Cells(38, 10), sh.Cells(39, 10)), _
                                        sh.Range(sh.Cells(49, 10), sh.Cells(50, 10)) _
                                     )