粘贴

ddz79101

老师！有列数据，其中单元格的值含公式，我希望按其右列的条件，若为汉字，则将其粘贴为不含公式的值。写有代码，但没有反应。请老师看看。谢谢

loirol

ykcbf1100

用like更简单。

ykcbf1100

转数值。。。

loirol

ykcbf1100 发表于 2024-11-12 14:09
转数值。。。

他需求要保留部分公式的，进数组全变值了

ddz79101

ykcbf1100 发表于 2024-11-12 14:08
直接用数组就行，二行代码

谢谢老师！我希望与字母平行的单元格，仍保持含公式的值，只是含中文的换成值

ykcbf1100

loirol 发表于 2024-11-12 14:16
他需求要保留部分公式的，进数组全变值了

没仔细审题，看错了。

3楼附件已更新。。。

ykcbf1100

ddz79101 发表于 2024-11-12 14:16
谢谢老师！我希望与字母平行的单元格，仍保持含公式的值，只是含中文的换成值

3楼附件已更新。。。

kyxfyzg

Sub 粘贴为值()
    Dim cell As Range
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True
    reg.Pattern = "[一-龢]"
    For i = 5 To Range("d65536").End(3).Row
        For Each cell In Range("e5:e" & i)
            If reg.Test(Cells(i, 5).Value) Then
               Range("d" & i).Copy
               Range("d" & i).PasteSpecial Paste:=xlPasteValues
            End If
        Next
    Next
End Sub

ddz79101

loirol 发表于 2024-11-12 13:45

谢谢老师！运行成功