Excel VBA宏读取具有不同文本的一列

Question

我的任务是创建一个代码来检查 Excel 电子表格中的内部超链接是否有效。此代码首先更改电子表格上的公式，并使它们成为实际的超链接(它们最初是将位置链接在一起的公式)。我现在遇到的问题是我想创建超链接 仅限 如果 S 列有文本。如果没有，我不希望显示“E-COPY”文本。 S 列中的所有文本都各不相同(没有一行具有相同的字符)，这就是为什么我要画一个空白的原因是我告诉程序只有在它有任何文本时才继续，而不是任何特定的文本。我正在使用 Excel 2016。

另外，我正在对 71935 执行此操作并计算行数；它可以通过多少个限制？如果是这样，我该怎么办？

谢谢!

Sub CreateHyperlinks()
Dim FN As Variant

Dim Path As Variant
Dim count As Variant

Sheets(1).Activate
count = WorksheetFunction.CountA(Sheets(1).Range("A:A"))


For i = 2 To count

If Range("AM" & i).Value = "Yes" And Columns("S") =  Then 
Range("E" & i).Value = ""

Path = Sheets(1).Range("R" & i).Value
FN = Sheets(1).Range("S" & i).Value


    Sheets(1).Range("E" & i).Select
    Selection.ClearFormats
    Selection.Hyperlinks.Add Anchor:=Selection, Address:=Path & FN, TextToDisplay:="E-COPY"

    Range("AM" & i).Value = " "

End If

Next i


End Sub

Answer 1

如果您只需要检查 ColS 中的任何内容，那么:

If Range("AM" & i).Value = "Yes" And Len(Range("S" & i).Value) > 0 Then