标签: vba7

这个小组中的任何人都可以就我试图解决的问题提供一些建议吗？我试图使用 Excel 超链接功能将 PDF 文档打开到特定页面。我试图解开这个谜团，但没有成功。希望有人能给我提供他们的想法和想法。

我尝试了 Google 和 Youtube，但只有少数与我的问题相关，并且讨论的解决方案不适用于我的情况......或者也许我错过了一些东西。一旦问题解决，这对我来说将是一个很大的帮助。先感谢您。

我开发了一个 VBA 宏，用于刷新 5 个 SAP AAO 查询，然后通过删除重复项将这些查询数据分别复制到表中，然后加载到电源查询中。在那里我添加了一些计算列，然后将该数据加载到电源支点中。

我还使用下面提到的 VBA 代码在每个工作表中执行一些操作，但是目前运行代码需要 4 多分钟。

在这 4 分钟内，至少 45 秒用于刷新 AAO 查询，剩余时间宏正在运行（包括刷新电源查询）

我仍在学习 VBA，因此我select / activate在代码中使用了宏记录器代码和工作表。我知道这不是正确的方法，因为我不知道除此之外更好的选择。由于这些事情，宏需要更多的时间来运行。

如果我不使用select代码来选择工作表，那么我会收到一条错误消息并且代码没有运行。

如果有人能帮我优化这段代码就太好了，这样就可以减少执行宏操作的时间。

Sub Refresh_AAO_Query()
Dim MyArray, i
Dim Sht, Sht1, Sht2, Sht3, Sht4, Sht5 As Worksheet
Dim OPs_Model_Data, OPs_Data, Sales_Data, Threats_Data, RE_Turnover, RE_LY As Worksheet
Dim Message As String
Dim LastRow1, LastRow2, LastRow3, LastRow4, LastRow5, LastRow6, LoB_LastRow, LoB_LastRow1, LoB_LastRow2, LoB_LastRow3, LastColumn1, LastColumn2, LastColumn3, LastColumn4, LastColumn5, LastColumn6, LastColumn7 As Long
Dim LoB, LoB1, …

我有一个 Excel 工作表，其中某些行可能包含与其他行相同的数据。我需要一个宏来汇总该列中的所有值并删除所有重复行，除了第一个包含其余行的总和。

我已经尝试了多个版本的代码，产生最接近我需要的结果的代码看起来像这样，但是这段代码包含一个问题：无限循环。

Sub delet()
    Dim b As Integer
    Dim y As Worksheet
    Dim j As Double
    Dim k As Double

    Set y = ThisWorkbook.Worksheets("Sheet1")
    b = y.Cells(Rows.Count, 2).End(xlUp).Row

    For j = 1 To b
        For k = j + 1 To b
            If Cells(j, 2).Value = Cells(k, 2).Value Then
                Cells(j, 3).Value = (Cells(j, 3).Value + Cells(k, 3).Value)
                Rows(k).EntireRow.Delete
                k = k - 1
            ElseIf Cells(j, 2).Value <> Cells(k, 2).Value Then
                k = k
            End If
        Next
    Next
End …

我创建了一个 VBA 代码来删除列中可用的所有特殊字符。举个例子，我在一列的每个单元格中都有一个字母数字字符，其中包含一些特殊字符： 假设在一个单元格中我有一个值： abc@123!-245 执行我的代码后，我得到输出 abc 123 245 这里我的代码工作正常删除所有特殊字符。我的代码如下：

Sub ReplaceSpecial()
    Dim cel As Range
    Dim strVal As String
    Dim i As Long
    Application.ScreenUpdating = False
    For Each cel In Selection
        strVal = cel.Value
        For i = 1 To Len(strVal)
            Select Case Asc(Mid(strVal, i, 1))
                Case 32, 48 To 57, 65 To 90, 97 To 122
                    ' Leave ordinary characters alone
                Case Else
                    Mid(strVal, i, 1) = " "
            End Select
        Next i
        cel.Value = strVal
    Next cel
    Application.ScreenUpdating …