Home / Questions / 475
Accepted
Trimax
Asked: 2020-12-06 03:43:27 +0800 CST 2020-12-06 03:43:27 +0800 CST

如何保留使用 VLookup() 函数获得的数据的格式？

  • 772

我有一张包含不同格式（日期、小数、文本等）数据的表格。

我正在寻找my_index范围 ( ) 中的值 ( )，lookup_range并且我想检索数据以将其写入另一张纸上的单元格。

宏工作正常，但是当我从函数检索的值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/2015，复制到的数据Hoja 3显示为数字41761。

我需要保留值在Hoja 1复制到Hoja 3.

excel

1 Answers

  1. Best Answer

    “本机”函数，如vlookup()Excel 的返回值或有关单元格的信息，但不能两者兼而有之。

    另一种方法是在其变体之一中使用复制和粘贴或特殊复制和粘贴。这是复制和粘贴的示例。

    Sub ConservarFormato()
    Dim rgOrigen As Range, rgDestino As Range
    ActiveSheet.Activate
    Set rgOrigen = Range("B1")
    Set rgDestino = Range("F2")
    rgOrigen.Copy Destination:=rgDestino
End Sub
    • 3