Объединение двух разных ячеек, содержащих разные значения даты (месяц, год)

Question

Я пытаюсь объединить два разных значения ячейки из входного листа:

ячейка (6, k), которая содержит значение года в качестве «стандартного», например.«2019»

ячейка (7, k), которая содержит значение месяца в качестве «даты», например.«Июнь»

После объединения я хочу преобразовать эту дату в выходной лист в формате «МММ / ГГ», например."Jun / 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"