vba复制粘贴数值编码