Question

我有一个特长，我试图在其中创建辅助列，以进行比较和搜索，该列由同一行中的两个单元格组成。我这样做的主要错误是运行时错误'438'：对象不支持此属性或方法。我知道会出现的第二个错误是单元格3是字符串格式，并且具有前缀0。通过在连接之前将数字格式更改为“数字”，我可以使用公式将其删除，但是我不确定如何在宏中执行此操作。

我知道是否要在excel中手动将其作为公式，看起来像这样：=CONCAT(NUMBERVALUE(C#),D#)

hrow = HSheet.Cells(Rows.Count, "A").End(xlUp).Row
For J = 2 To hrow
    HSheet.Range("F" & J) = Application.VLookup(HSheet.Range("D" & J), PP.Range("D2:L" & lastrow), 9, False)
    HSheet.Range("I" & J).Cell.Value = HSheet.Range("C" & J).Cell.Value & HSheet.Range("D" & J).Cell.Value
Next J

有关此数据的示例：

Cell C   |  Cell D  |    Cell I   |
 0032    | AB975050 |  32AB975050 |

Answer 1

您应该在使用Range.Cell.Value时使用Range.Value

HSheet.Range("I" & J).Value = HSheet.Range("C" & J).Value & HSheet.Range("D" & J).Value

使用VBA将两个单元合并为一个

1 个答案: