Часть диапазона отформатирована как текст

Question

После ответа @ Pᴇʜ по этой ссылке Объединение двух макросов

У меня есть дополнительный вызов. В именованном диапазоне, называемом «RawTab1», столбец J содержит значения «Год», отформатированные как '2018 , а в столбце K содержит значения «Месяцы», отформатированные как '12 .

Я использую макрос @ Pᴇʜ, чтобы скопировать rng «RawTab1» в таблицу с именем «DataTable» на листе с именем «Data»

Итак, мой вопрос:

• Можно ли вставить эти два столбца в формате чисел?

В противном случае макрос работает идеально.

Answer 1

Попробуйте:

Public Sub Combined()
    Dim sht As Worksheet
    Set sht = ThisWorkbook.Worksheets("Data")
    sht.Range("A3:M3", sht.Range("A3:M3").End(xlDown)).ClearContents

    With Worksheets("Raw Data").Range("RawTab1")
        'copy everything from RawTab1 but not the first 2 rows
        Dim Crng As Range
        Set Crng = .Resize(RowSize:=.Rows.Count - 2).Offset(RowOffset:=2)
    End With

    sht.Range("A2").Resize(Crng.Rows.Count, Crng.Columns.Count).Value = _
         sht.Evaluate("IF(ISNUMBER(--" & Crng.Address(0, 0, xlA1, 1) & "),--" & Crng.Address(0, 0, xlA1, 1) & "," & Crng.Address(0, 0, xlA1, 1) & ")")

End Sub