如何从Excel表格与macros生成图表
我在Excel表中有一些数据
id XY 93c3ac0d-5618-42a1-8495-79c890bcc440 3,855860732 3,855888397 7ba28c26-2a1f-41be-80f0-b0cfae97c504 3,818260653 3,818589846 a23ace40-c3c3-45cc-ab32-b59e33b7f83b 9,55033235 9,58033235 013c91b3-bc88-4dbd-ba65-1b02fd093ebb 6,541669914 6,552391904 afaef874-f52c-4ba2-9565-8bc7facabc93 6,560388448 6,570680712 35bfd027-147d-4a18-aa1b-217a3593c4b0 8,532138865 8,550715203 2b7e96d4-8e7b-422b-b07e-0e75378777cd 8,541575561 8,53250362 d34f7be8-65d1-4c22-b4c7-344db0ba356b 8,542794004 8,545666996 9430ea31-f8da-43be-9a4f-54cf382aa450 8,557895658 8,522192019 30d1998a-85b2-456b-81a7-878eafc418f7 9,55033235 9,58033235 19876333-2120-445e-b1cf-d6f5503c8513 9,55033235 9,58033235 4831acb3-b9e3-4a4c-9619-c835f6e77ea2 9,55033235 9,52033235 47bc5691-a6af-4898-b892-da98b56e6f6f 6,54075573 6,544362052 e4ab1a50-26e5-4f0e-8d62-ab24249125e9 8,5416706 8,5559438 56e6298e-e05a-433e-8365-a97dba2276df 9,55033235 9,52033235 f550a46e-139d-4073-a30e-d9c37d807475 9,55033235 9,548071894 43c667e0-c505-4843-aead-cbfc32bf6ac4 3,828557425 3,828682676 18f4f9a7-dfba-4e39-8a9d-6e812dbf89f3 6,512208526 6,509076709 44065b42-342d-42b2-872c-15891cd8e8e6 8,549072661 8,565770097 dcd8497e-8cb0-4d3b-9f14-d4362cc42e4c 6,545840736 6,570819834 e7405709-e212-443e-81db-4f57cceca642 9,55033235 9,52033235 0d639735-175f-4a5d-980a-37032c26cd5f 6,544109632 6,543897064 30860a47-101e-4fdb-8e9c-33475a140029 3,816656205 3,817036757 49e58de1-c621-4d52-844a-13b93190e8ce 9,55033235 9,52033235 c6d085be-dcfd-42de-b084-fbf657c44175 6,545139879 6,544869008 如何创buildmacros来处理所有可见的行添加到图performance在系列（GUID）的X和Y值点图（ ChartType = xlXYScatter ）？ 结果图应放置在新表中，并有25个系列。
下面的代码将做的伎俩。 虽然我想知道为什么在地球上，你会希望每个点在一个单独的系列…
Option Explicit Sub zonk() Dim i As Long With Charts.Add ' Make new chart ' Set its properties .ChartType = xlXYScatter .Location Where:=xlLocationAsNewSheet .HasLegend = False ' Add the series For i = 1 To 25 With .SeriesCollection.NewSeries .XValues = Worksheets("Sheet1").Cells(1 + i, 2) .Values = Worksheets("Sheet1").Cells(1 + i, 3) .Name = Worksheets("Sheet1").Cells(1 + i, 1) ' Assuming your data is at the top left of Sheet1... End With Next i End With End Sub