Excel/VBA/SQL 从一行中获取值并在另一行中更新答案

【问题标题】：Excel/VBA/SQL Grab value from one row and update in anotherExcel/VBA/SQL 从一行中获取值并在另一行中更新
【发布时间】：2018-11-20 15:02:31
【问题描述】：

我要做的是在 Excel 中将金额从一行更新到另一行。它们没有任何组合键，但它们处于模式中。总是从项目组开始，大约 3-7 行之后是项目组的结尾。我想从项目组的末尾获取金额并更新项目组中的行，但始终是项目组将是第一个然后是项目组的末尾。

如果使用或访问更容易，我可以上传到 SQL。

这就是问题所在。

这就是我想要完成的：在这次更新之后，我想删除项目组之后的每一行，但只删除到项目组的末尾。

【问题讨论】：

宏可以吗？
是的，这样更好，我可以学习和训练。

标签： excel line itemgroup

【解决方案1】：

所以基本上如果您还没有开发人员选项卡，您需要转到选项>自定义功能区>单击“开发人员”

然后单击“开发人员”选项卡上的 VB 编辑器，然后在项目区域中单击鼠标右键并选择“插入新模块”。在新模块中插入此代码并保存。

为了使其易于运行，您可以转到开发人员选项卡 > 插入 > 按钮。然后右键单击该按钮并将其分配给您刚刚创建的这个宏，这样每次您想要更新项目组值时都可以单击该按钮。如果按钮不允许您“分配宏”，那么您可能插入了错误类型的按钮。

Option Explicit

Sub UpdateValues()

    Dim itemCol As Long
    Dim lastRow As Long
    Dim row As Long
    Dim lastEnd As Double: lastEnd = 0.0

    ' set reference to your worksheet
    With ThisWorkbook.Worksheets("your sheet name")

        ' set column with title 'Item_Type' in Row 1
        For row = 1 To 20
            If Trim(CStr(.Cells(1, i).Value)) = "Item_Type" Then itemCol = i
        Next

        ' find last row of Item_Type column
        lastRow = .Cells(.Rows.Count, itemCol).End(xlUp).Row

        ' loop backwards thru rows
        For row = lastRow To 1 Step -1

            ' if cell contains word 'end'
            If InStr(LCase(CStr(.Cells(row, itemCol).Value)), "end") Then
                ' set our group value
                lastEnd = .Cells(row, itemCol+1).Value
            ' if lowercase(cell) = 'item group'
            ElseIf LCase(CStr(.Cells(row, itemCol).Value)) = "item group" Then
                ' put end value in the cell
                .Cells(row, itemCol+1).Value = lastEnd
            End If

        Next row

    End With

End Sub

【讨论】：