引用来自不同工作表的未知字符串

Question

Sheet1有2列“Product”和“Price”。 Sheet2的数据格式为“Object.Price”ex。 TV.500

我需要参考Sheet2上的数据，并将Sheet1上的数据生成到相关列中。因此对于TV.500，在Sheet1中，它应该在“产品”列中显示电视，在“价格”列中显示500。

这是我到目前为止所拥有的

With Worksheets("Report").Range("A2")
    .Value = Worksheets("Data").Range("A1")
End With    

这给了我整个数据。我该如何拆分？这需要适用于程序未知的所有对象和价格组合。

Answer 1

使用Split function。

With Worksheets("Report").Range("A2")
    .resize(1, 2) = split(Worksheets("Data").Range("A1"), chr(46))
End With  

我 我添加了对Range.Resize property的调用，因此两个值都写为一次。