引用来自其他工作表的未知string

Sheet1有2列“产品”和“价格”。 Sheet2具有“Object.Price”forms的数据ex。 TV.500

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

这是我迄今为止

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

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

Answer 1

使用分割function 。

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

我已经添加了一个调用Range.Resize属性，所以这两个值被写入一次。