如何在 Excel 文件中添加列以添加手动数据以完成 sql 查询

Question

我使用 sql 查询导出 excel 文件中的数据。它 return 几列库存数量。我想在 excel sheet 中添加一些列以添加预置（手动语句）和一些列以在我的新列和来自 sql 查询的列之间做一些公式。我的问题是当我在 Excel 中更新我的查询时...我手动添加的列不跟在插入的行之后。我使用 Excel 2016。我尝试在 Power Query 上采样。但我不知道该怎么做感谢您的帮助

Answer 1

最后，合并几个解决方案我找到了一个方法首先在您的 SQL 服务器上构建一个请求 2nd 用键列和附加列制作第二个 sheet 第 3 次在更改事件 sheet

上创建函数

Private Sub Worksheet_Change(ByVal Target As Range)
testlok
End Sub
Sub testlok()
 Application.ScreenUpdating = False
 Dim c As Range
 Dim firstAddress As String
 Dim find As Boolean
 Dim Cell As Range
 For Each Cell In Feuil1.Range("A2:A" & Feuil1.Range("B2").End(xlDown).Row)
find = False
With Feuil2.Range("A2:A" & Feuil2.Range("B2").End(xlDown).Row)
    Set c = .find(Cell.Value, LookIn:=xlValues,lookat:=xlwhole)
    If Not c Is Nothing Then
        firstAddress = c.Address
        find = (Feuil2.Range(c.Address).Offset(0, 1).Value = Cell.Offset(0, 1).Value)
        If Not find Then
            Do
                Set c = .FindNext(c)
                If firstAddress = c.Address Then Exit Do
                If Not c Is Nothing Then
                    find = (Feuil2.Range(c.Address).Offset(0, 1).Value = Cell.Offset(0, 1).Value)
                End If
            Loop While (Not c Is Nothing And Not find)
        End If
    End If
End With
If Not find Then
     if Feuil2.Range("A" & Cell.Row).Value <>"" then Feuil2.Rows(Cell.Row).EntireRow.Insert
     Feuil2.Range("A" & Cell.Row).Value = Cell.Value'1rst part of key
     Feuil2.Range("B" & Cell.Row).Value = Cell.Offset(0, 1).Value'2nd part of key
     Feuil2.Range("C" & Cell.Row).Value = 0 'Default value
End If
Next Cell
Application.ScreenUpdating = True
End Sub

在我的示例中，我有 2 列作为键。第三，从 table 中创建一个新查询并将您的 sql 查询与第二页

的 table 合并

如何使用？ 1/更新 sql 查询 3/手动更新附加列 4/更新合并请求

如果有人有更好的解决办法，欢迎分享。

如何在 Excel 文件中添加列以添加手动数据以完成 sql 查询

How Add columns in Excel file to add manual datas to complete sql query

excel

powerquery