用Vba在excel表的每个sheet的E1单元格依次生成曲线图，第一列数据作为横轴，第二列数据作为纵轴，

可以按照以下步骤来实现：

1. 打开Excel文件，并在VBA编辑器中创建一个新的模块。
2. 在模块中编写代码，以便在每个工作表的E1单元格中生成曲线图。下面是示例代码：

Sub GenerateCharts()
    Dim ws As Worksheet
    Dim cht As ChartObject
    Dim lastRow As Long
    
    For Each ws In ThisWorkbook.Worksheets
        lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
        Set cht = ws.ChartObjects.Add(Left:=300, Top:=10, Width:=500, Height:=300)
        With cht.Chart
            .ChartType = xlXYScatterLines
            .SetSourceData Source:=ws.Range("A1:B" & lastRow)
            .HasTitle = True
            .ChartTitle.Text = "Chart for " & ws.Name
            .Axes(xlCategory, xlPrimary).HasTitle = True
            .Axes(xlCategory, xlPrimary).AxisTitle.Text = "X Axis"
            .Axes(xlValue, xlPrimary).HasTitle = True
            .Axes(xlValue, xlPrimary).AxisTitle.Text = "Y Axis"
        End With
        cht.Left = ws.Range("E1").Left
        cht.Top = ws.Range("E1").Top
    Next ws
End Sub

3. 运行该代码，它将为每个工作表生成一个曲线图，并将其放置在E1单元格中。曲线图的数据范围将基于第一列和第二列的数据。

注意：上述代码假设第一列和第二列的数据没有空行，如果有空行，那么最后一行将不会被包括在图表中。另外，曲线图的类型是xlXYScatterLines，您可以根据需要更改它。