Question

所以，这应该是一个有趣的...

我有2个单独的报告，提供有关门票的客户满意度信息（如果我能够将数据放在1个列表中，那么这个问题将不存在......）。每个列表提供的信息包括最重要的票号。一个列表提供客户评论，而另一个列表提供1-5级的客户满意度评分。

简单的连接匹配票证号码相当容易，但是，数据库设计者未能强制要求客户评论字段，因此大约50％的票证没有评论。

我有两张过去60天的信息，但有分数的那张几乎是行号的两倍。我需要做的是首先使用得分表合并列表，因为它将包括每张票，然后在评论表中添加，将评论与各自的票相匹配。

我甚至不确定如何启动此代码，我不是在寻找完成的代码，只是关于方向的建议。

伪代码类似于：

清除每张表中无用的列
按票证创建日期（或票号）
将调查评论表复制到调查分数表中，在中间留下一两列空白。
假设列A和列G包含票号，排序以使值匹配，而列G没有调查注释值的行为空白

非常感谢任何方向！

Answer 1

以下内容可以满足您的需求：

Sub foo()
LastRow = Sheet1.Cells(Rows.Count, "A").End(xlUp).Row 'find how many rows on Sheet1
LastRow2 = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row 'Find how many rows on Sheet2
For i = 2 To LastRow 'loop from row 2 to last row
Sheet1.Cells(i, 3).FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet2!R1:R1048576,2,FALSE)"
'enter the Vlookup formula on column number 3, change this number to suit your needs, also change the 2 before FALSE to the column number you wish to bring into Sheet1
Next i
End Sub

Excel VBA：连接具有不同行数的列表

1 个答案: