Question

我有几列各种标题的数据，我想根据标题进行缩小和整理。现在我正在通过复制源表上每个标题下的数据，在目标表上找到相同的标题，并在新标题下粘贴来完成我的任务。我的代码是：

doMatchPlotError<-function(errorCalculated,title){
  errorCalculated[,1]<-as.yearmon(errorCalculated[,1])
  plot<-ggplot(data = errorCalculated,aes(x=dates,y=error,group=name,colour=name,linetype=variante))+
geom_line()+
scale_x_yearmon()+
ylab("Error")+
ggtitle(title)
plot
}

我有两个问题的例子：

1）。我的一些数据标题是“5/64”，“6/64”和“7/64”，当粘贴到Excel中时，它将作为日期格式返回。例如，Cell.Text返回“May-64”而不是“5/64”，而Cell.Value返回“5/1/1964”。这对我很好，只要它始终保持一致，但是我的子程序正在从标题“5.5”输入数据，该列只应为“5/64”（或者因为我使用的是Cell.Value，“5 /1964分之1“ ）。

2）。与第一个例子类似，我有两个数据列“Total Protein”和“Total Protein（NIR）”，其中“Total Protein”的数据被粘贴在“Total Protein（NIR）”标题下。

对于这两个例子，我猜测我如何处理Cell.Value存在问题。使用Cell.Text也不起作用;这完全忽略了“May-64”标题。有什么提示吗？

Answer 1

Socii有正确的想法 - 指定LookAt：= xlWhole解决了这个问题。感谢您的回复

Excel VBA - 查找（Cell.Value）和格式的问题

1 个答案: