help me !!! gấp trong ngày ạ. sửa code giúp e vs mn oi

[lalalisa]

Sub a()
Dim chrt As Chart, i As Long
For i = 1 To 5
Set chrt = ActiveSheet.Shapes.AddChart2(201, xlColumnClustered, 100 + (i - 1) * 500, 50, 400, 300).Chart
With chrt
.SetSourceData Source:=Range("a1:b10")
.SeriesCollection(1).ChartType = xlLine
.SeriesCollection(1).AxisGroup = 1
With .SeriesCollection.NewSeries
.Values = Range("b2:b10").Offset(, i)
.Name = [c1].Offset(, i)
.ChartType = xlColumnClustered
.AxisGroup = 1
End With
End With
Next
End Sub

 

[bebo021999]

Căng nhỉ, Combo nhiều - trong - 1:

- "help me"
-"gấp"
- "e vs mn"
- image only
- "code" mà không có "quote"?

Thầy chạy rồi.