求大神帮写VBA，以及导入方法，有函数的单元格内容自动转换为纯文本。

Posted 2023-03-19

需要把图片内的绿色区域的函数结果转换到黄色区域并变为纯文本，如：21-11-01 星期一，需要转换范围F2：AJ2转换文本至F3：AJ3，顺便教一下宏的录制导入，谢谢！！！

参考技术A Sub 文本()
arr = Range("f2:aj2")
[f3].Resize(1, 31) = arr
End Sub追问

请问一下怎么导入，感谢！

追答

右键 sheet名，查看代码，复制进去
运行这个代码

追问

这位老师不好意思，代入这个代码以后，出现的文本是日期文本，我想要这种：21-11-01 星期一，这种文本，因为需要带函数公式进行查找数据。感谢！~

追答

把你公式发来看下

追问

=COUNTIFS(INDIRECT("每日统计!$A$5:$A$2329"),'考勤（日）'!$D4,INDIRECT("每日统计!$G$5:$G$2329"),'考勤（日）'!F$3,INDIRECT("每日统计!$H$5:$H$2329"),"*白*")

把页面显示的文本样式直接转换成实际文本，就想复制后，手动选择数值黏贴一样的效果。图片内的粉色数字5，是在我手动输入F3的文本以后，公式生效

追答

试下这个

就是变为把公式结果变为 纯数值
Sub 选择粘贴为数值()
Range("F2:aj2").Select
Selection.Copy
Range("F3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

本回答被提问者采纳