『壹』 excel中一張數據表格如何同時製作多張圖表
在電腦excel表格的使用當中，一張數據表格想要同時製作多張圖表，可以採用圖表插入的形式，根據數據進行圖表數據調整和分析，這樣就可以達到很理想的使用效果。所以平時使用的方法和技巧，一定要多學習。
『貳』 在Excel中如何實現一個X值對應多個Y值
結論已經得出：在Excel中，通過簡單的步驟，可以實現一個X值對應多個Y值的散點圖。以下是操作的直觀描述：
首先，打開Excel，確保你已經准備好包含X和Y數據的表格作為數據源。這是製作散點圖的基礎。
接著，選中這兩列數據，切換至菜單欄的「插入」選項，然後在「圖表組」中找到散點圖圖標，點擊它，你會看到多個散點圖模板，選擇第一個即可開始繪制。
完成基本的散點圖繪制後，你會看到初始的圖表。為了展示每個X值對應的多個Y值，需要對Y軸進行進一步操作。在Y軸上右鍵單擊，選擇「添加次要網格線」選項。
這樣，Excel會自動在Y軸上添加一系列的網格線，每個網格線代表一個等Y值的區間。現在，你的散點圖就清晰地展示了每個X值對應的不同Y值范圍，方便數據的分析和解讀。
『叄』 如何將數據區域分割成多個圖表系列
問：如圖 1所示的列表，如果需要針對列表中的每一行都單獨創建一個圖表系列，如何快速實現？
圖 1
答：方法一：使用公式
首先，將圖 1 所示的數據進行整理，如圖 2 所示。
圖 2
其中，第 1 行的 D1：G1 中為列 A 中的不重復項。
在單元格 D2 中輸入公式：
= IF（$ A2 = D $ 1，$ C2，NA（））
先進至單元格區域 D2：G14 。
選擇單元格區域 B1：B14 ，按住 Ctrl 鍵不放，選擇單元格區域 D1：G14 。
插入 XY 散點圖，結果如圖 3 所示。
圖 3
註：在折線圖或 XY 散點圖中，＃N / A 值不會被替換；在條形圖或柱狀圖上，空字元串 」」 不會被替換。
方法二：使用 VBA
使用循環讀取單元格區域的第 1 列，依次通過第 1 列進入行組合，依次每個組合作為圖表的一個系列。
首先選擇圖表，然後運行下面的 VBA 程序，會依次圖 4 所示的這種，要求輸入數據區域。
圖 4
單擊確定後，結果如圖 5 所示。
圖 5
代碼如下：
子CreateChartByRow（）
暗淡作為圖表
調光范圍
Dim strPrompt作為字元串
盡可能長的昏暗
點心系列
調光行
Dim lngRowStart只要長
只要Dim lngRowEnd
Dim strSeries作為字元串
如果ActiveChart一無所獲
MsgBox「 請選取圖表並重試。」，vbExclamation
轉到ExitSub
萬一
strPrompt =「 選擇包含數據的 3 列單元格區域。」
strPrompt = strPrompt＆vbNewLine＆「 第 1 列：系列標題 」
strPrompt = strPrompt＆vbNewLine＆「 第 2 列： X 值 」
strPrompt = strPrompt＆vbNewLine＆「 第 3 列： Y 值 」
strPrompt = strPrompt＆vbNewLine＆「 避免空單元格 」
關於錯誤繼續
設置rng = Application.InputBox（Prompt：= strPrompt，Type：= 8）
出錯時轉到0
如果rng什麼都沒有，則轉到ExitSub
設置cht = ActiveChart
做
如果cht.SeriesCollection.Count = 0那麼退出
cht.SeriesCollection（1）。刪除
循環
strSeries =「」
lngSrs = 0
對於lngRow = 1到rng.Rows.Count + 1
如果rng.Cells（lngRow，1）.Value > strSeries或lngRow> rng.Rows.Count然後
如果lngSrs> 0然後
lngRowEnd = lngRow-1
設置srs = cht.SeriesCollection.NewSeries
與srs
.values = rng.Cells（lngRowStart，3）.Resize（lngRowEnd +1-lngRowStart）
.XValues = rng.Cells（lngRowStart，2）.Resize（lngRowEnd +1-lngRowStart）
.Name = rng.Cells（lngRowStart，1）.Value
.ApplyDataLabelsShowSeriesName：=正確，_
ShowCategoryName：= False，ShowValue：= False
結束於
萬一
lngRowStart = lngRow
strSeries = rng.Cells（lngRow，1）.Value
lngSrs = lngSrs + 1
萬一
下一個
ExitSub：
Application.ScreenUpdating = True
結束