samplevba.vbs

Sub 部署名変更bySubscriptionGUID(ByVal guid As String, ByVal newDepartment As String)
    
    Dim detailTable
    Set detailTable = Worksheets("データソースfromAzure(detail)").ListObjects("detail")
    
    For i = 1 To detailTable.ListRows.Count
        If detailTable.ListColumns("サブスクリプション GUID (SubscriptionGuid)").DataBodyRange(i) = guid Then
            detailTable.ListColumns("部署名 (Department Name)").DataBodyRange(i).Value = newDepartment
        End If
    Next
    

End Sub