如何解决剪贴板文本TRUE/FALSE粘贴至Excel后被识别为布尔值导致VLOOKUP报错的问题

我太懂这种糟心的情况了——明明复制的是文本格式的TRUE/FALSE，结果Excel一粘贴就自动转成布尔值，导致VLOOKUP搜文本"TRUE"的时候直接返回#N/A，完全匹配不上。结合你用VBA操作剪贴板的场景，给你几个实用的解决办法：

方法一：在写入剪贴板前给TRUE/FALSE加文本强制标识 #

Excel里的单引号'是个隐藏的小技巧，只要在文本前加上它，Excel就会把内容强制识别为纯文本，不会自动转成布尔值、数字这些格式。你可以在把数据放到剪贴板之前，先处理一下目标内容：

' 先对要复制的内容做替换，给TRUE/FALSE加上单引号前缀
myExternalData = Replace(myExternalData, "TRUE", "'TRUE")
myExternalData = Replace(myExternalData, "FALSE", "'FALSE")

' 再执行你的剪贴板操作
Dim ClipboardObj As New MSForms.DataObject
ClipboardObj.SetText Text:=myExternalData
ClipboardObj.PutInClipboard

粘贴之后，单元格里的TRUE看起来和原来完全一样，但实际上是文本格式，你的VLOOKUP搜索文本"TRUE"就能正常匹配了。

方法二：粘贴后批量把布尔值转成文本 #

如果不想修改剪贴板的内容，也可以在粘贴完成后，用VBA把已经变成布尔值的列转换成文本格式：

' 假设你的Code列是从C4开始的，先选中整个数据区域
Dim targetRange As Range
Set targetRange = Range("C4:C" & Cells(Rows.Count, "C").End(xlUp).Row)

' 第一步：把单元格格式设置为文本
targetRange.NumberFormat = "@"
' 第二步：把布尔值转换成对应的文本内容
targetRange.Value = targetRange.Text

这个操作会先把单元格改成文本格式，再把显示的"TRUE"/"FALSE"文本赋值回去，这样就彻底变成文本型数据了。

方法三：修改VLOOKUP公式兼容两种数据类型 #

如果不想动数据，也可以调整公式，让它同时能匹配文本和布尔值的TRUE/FALSE。比如把原来的VLOOKUP公式改成数组公式（Excel 365及以后版本直接回车即可，旧版本需按Ctrl+Shift+Enter确认）：

=INDEX(C:C, MATCH(TRUE, (C:C="TRUE")+(C:C=TRUE), 0))

它会同时检查单元格是文本"TRUE"还是布尔值TRUE，找到第一个匹配项返回。

如果还是想用VLOOKUP，可以把查找值做适配：

=VLOOKUP(IF(ISNUMBER(SEARCH("TRUE", E1)), TRUE, E1), C:C, 1, FALSE)

这里假设你的查找值在E1单元格，公式会自动判断是否要转换成布尔值来匹配。

备注：内容来源于stack exchange，提问作者Loki Sinaw