VLOOKUP函式可以實現，可以上網學習一下如何使用VLOOKUP函式。

我自己是製作了兩張Excel表，第一張表是資訊儲存表，即將編號和資訊儲存在第一張表中。第二張表是資訊轉換表，輸入編號，自動轉換之前資訊儲存表中一一對應的資訊。

需要注意的是:將轉換後的資訊不能直接複製，要右鍵“選擇性貼上”，因為直接複製，複製出來的是公式。

我在公司經常需要寫資料分析報告，資料一大堆。每次都需要從Excel將圖表複製到PPT，很多時候資料是不斷地更新的。更新完就得重新再來一遍，真得讓人好惆悵。

今天講給大家分享下如何從指定sheet讀取圖表並生成PPT的過程。這種方法只是工作中改善的一個縮影。希望大家都可以在工作中藉助自動化的方法提升我們的效率。

生成PPT的過程大致可以分為幾步：

1.建立PPT

2. 讀取Excel中的圖表

3. 新增PPT中的Slide 將圖表新增到Page中

4. 儲存PPT

--建立PPT

Sub createPPT()

Set myppt = CreateObject("PowerPoint.Application")

Set mynewppt = myppt.Presentations.Add

End Sub

-- 獲取Excel中所有的圖表

Sub loadchart(ws As Worksheet)

Dim obj As Object

Dim i As Integer

mcount = ws.ChartObjects.count

If mcount > 0 Then

ReDim chartlist(mcount) As Variant

For i = 1 To ws.ChartObjects.count

Set obj = ws.ChartObjects(i)

Set chartlist(i) = obj

Next i

End If

End Sub

--建立新的Slide將圖表複製到Slide中

Sub CopyChartToPpt(pos As Integer, c As Object)

Set mynewslide = mynewppt.Slides.Add(Index:=mynewppt.Slides.count + 1, Layout:=2) "生成一個新的Slide

c.Copy

With mynewppt.Slides(pos).Shapes

.Paste

End With

End Sub

--儲存PPT

Sub SavePPT(path As String)

mynewppt.SaveAs Filename:=path

Set myppt = Nothing

End Sub