Question

我正在尝试合并输入表中的两个不同的单元格值：

cell（6，k），其中包含年份值作为“标准”，例如“ 2019”

cell（7，k），其中包含一个月值作为“日期”，例如“六月”

合并后，我想将此日期转换为“ MMM / YY”格式的输出表，例如。 “ 6月19日”。

有没有一种方法可以不将单元格声明为整数或字符串值，并将单元格直接放在DateSerial函数中？那是为了减少代码中的行数。

我目前收到“类型不匹配错误（＃13）”。

这是我到目前为止（已声明输入表和输出表）：

Option Explicit
Sub formdate()  

Dim erow As Long
Dim outputsheet As Worksheet
Dim inputsheet As Worksheet
Dim i As Long

    For i = 1 to 4

        erow = outputsheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

        outputsheet.Cells(erow, 1) = DateSerial(inputsheet.Cells(6, i).Value, month(inputsheet.Cells(7, i).Value), 1)
        outputsheet.Cells(erow, 1).NumberFormat = "MMM/YY"

    Next i

End Sub

Answer 1

因此，请在For循环中更改相应的行：

    outputsheet.Cells(erow, 1) = _
         CStr(inputsheet.Cells(7, i).Value) & " " & CStr(inputsheet.Cells(6, i).Value)
    outputsheet.Cells(erow, 1).NumberFormat = "MMM/YY"

合并两个包含不同日期值（月，年）的不同单元格

1 个答案: