用于将范围内的特定单元格复制到剪贴板的宏

Question

我想创建一个按钮来激活Excel中的宏，该宏在F10; F14范围内进行搜索。在此范围内可以是名称或“NA”。我希望宏搜索名称，只将它们放在我的剪贴板中，并忽略范围内的“NA”。

Sub Macro4()
'
' Macro4 Macro
'

'
    Range("F10:H16").Select
    Selection.Copy
End Sub

Answer 1

建立非NA名称的联合并复制它。

dim rng as range, nms as range
for each rng in range("F10:H16")
    if cbool(len(rng.value)) and lcase(rng.value) <> "na" then
        if nms is nothing then
            set nms = rng
        else
            set nms = union(nms, rng)
        end if
    end if
next rng

nms.copy   'union of non-NA values are on clipboard

这取决于NA是字符串值而不是#N / A工作表错误。