小编Wal*_*eed的帖子

我使用下面的代码将超链接从一个单元格复制到一个范围。
超链接已粘贴并正常工作，
但如果我后来从任何一个粘贴的超链接中删除任何超链接，则目标单元格中​​的所有超链接都将被删除！
这个问题要么是我使用了 vba（复制、粘贴和删除），要么是仅仅使用了 excel。
我用的是office 2016。

Sub Hyperlinks_Issue()
 
    Range("R2").Copy Range("N2:N15")
 
    Range("N2").Hyperlinks.Delete
 
End Sub

下面的代码从字符串中提取所有数字，甚至将它们组合起来。
但我只需要按照规则提取一个整数：
1-该数字是一位或两位数字（加上小数部分，如果存在）。
2-如果数字后跟"orinch或in，则提取它并忽略字符串中的其余数字。
3-如果未找到上述条件（2），则提取第一个数字并忽略字符串中的其余数字。

Public Function GetNumeric(CellRef As String)
    Dim StringLength As Long, i As Long, Result As Variant
    StringLength = Len(CellRef)
    For i = 1 To StringLength …