Muốn hiện hết các Define...

[moonsun1130]

Các Anh chị cho em hỏi em có 1 file excel lập hồ sơ tín dụng em dùng chức năng Insert -> Name -> define .. để định nghĩa các cột sau đó dùng hàm Vlookup để lấy giá trị trong ô của cột đó. nhưng do đem định nghĩa nhiều quá (file lớn) nên chẳng nhớ nữa mà bây giờ ngồi nhìn từng dòng 1 thì rất mất thời gian. Có cách nào để biết hết được các cột mình đã định nghĩa ra không ạ. Em xin cảm ơn nhiều

 

[huuthang_bd]

Các Anh chị cho em hỏi em có 1 file excel lập hồ sơ tín dụng em dùng chức năng Insert -> Name -> define .. để định nghĩa các cột sau đó dùng hàm Vlookup để lấy giá trị trong ô của cột đó. nhưng do đem định nghĩa nhiều quá (file lớn) nên chẳng nhớ nữa mà bây giờ ngồi nhìn từng dòng 1 thì rất mất thời gian. Có cách nào để biết hết được các cột mình đã định nghĩa ra không ạ. Em xin cảm ơn nhiều

Nhấn F3 để mở cửa sổ Paste Name. Click nút Paste list trên cửa sổ này. Trước khi thực hiện nên đặt con trỏ ở một vị trí rộng rãi và tránh vùng dữ liệu ra nhé.

 

[SA_DQ]

Bạn thử với macro sau, tốt nhứt trên trang tính trắng.

Option Explicit
Sub Names()
 Dim Ten As Name
 
 For Each Ten In ActiveWorkbook.Names
   With [A65500].End(xlUp).Offset(1)
      .Value = Ten.Name
      .Offset(, 1).Value = "'" & Ten.RefersTo
   End With
 Next Ten
Exit Sub:            End Sub

 

[ndu96081631]

Option Explicit
Sub Names()
 Dim Ten As Name
 
 For Each Ten In ActiveWorkbook.Names
   With [A65500].End(xlUp).Offset(1)
      .Value = Ten.Name
      .Offset(, 1).Value = "'" & Ten.RefersTo
   End With
 Next Ten
Exit Sub:            End Sub

Em chỉ cần vầy là đủ:

Sub ListNames()
  Range("A1").ListNames
End Sub