如何从 VLookup 返回值中保留日期格式？

Question

我有一张混合格式数据（日期、双精度、字符串等）的工作表。 我在 lookup_range 中搜索值 (my_index)，我想检索数据以更改其他工作表中的单元格。 它工作正常，但是当 VLookup 返回的值是一个日期并且我将它设置为另一个工作表时，它会丢失其日期格式。

Dim lookup_range As Range
Dim my_index, my_value As Variant

my_value = Application.VLookup(my_index, lookup_range, num_col, False)
Sheets(3).Cells(num_row, last_col_s1 + num_col - 1).Value = my_value

因此，当 lookup_range 中的数据为02/05/2014 ， sheet-3 中显示的数据看起来像41761 。

我需要在lookup_range中保留数据的原始数据格式。

Answer 1

VLOOKUP不关心它返回的数据的格式——它返回数据，而不是格式。

确保与源格式相同的唯一方法是手动或以编程方式复制/粘贴该格式。

Answer 2

用这个

Sheets(3).Cells(num_row, last_col_s1 + num_col - 1).Value = cdate(my_value)

Answer 3

我遇到了同样的问题，只是将 VLOOKUP 单元格重新格式化为日期时间格式。 那解决了我的问题。 我不确定日期时间如何转换为数字，但确实如此。

Answer 4

我遇到了同样的问题。 vlookup 后，将格式更改为“ShortDate”格式。 这会给你你正在寻找的东西。

Answer 5

Excel公式：

=TEXT(VLOOKUP(Lookup_value,table_array,col_index_num,0),"dd-mm-yyyy")

VBA :

Sub vlookup_code()

    Dim table_rng As Range

    'FOR THE TIME BEING GIVING A LOOKUP VALUE
    look_up_value = "sekar"

    'SETTING THE TABLE ARRAY RANGE
    Set table_rng = Sheet1.Range("C3").CurrentRegion

    'SINCE VLOOKUP WILL GIVE AN ERROR, IF THE LOOKUP VALUE IS NOT PRESENT
    'TO HANDLE THIS ERROR, WE USE THE ISERROR STATEMENT
    If IsError(Application.vlookup(look_up_value, table_rng, 2, 0)) = False Then

        vlook_value = WorksheetFunction.vlookup(look_up_value, table_rng, 2, False)

        'CHANGING THE VLOOKUP VALUE FORMAT TO DATE FORMAT
        date_format = WorksheetFunction.Text(vlook_value, "dd-mm-yyyy")

    End If

End Sub

Answer 6

在 Microsoft Office 2016 中。

一旦数据复制到单元格。 选择需要为日期格式的列。 右键单击-> 格式化单元格，转到数字选项卡并从下拉列表中选择日期并选择所需的日期格式，数据将转换为日期格式。