Thêm "-" vào ô trống

[trantuonganh2008]

Chào mọi người, Nhờ các bạn viết code thêm dấu "-" vào những ô trống của 1 cột nhé. Cám ơn nhiều!!!

 

[SA_DQ]

Bạn thử với macro này xem sao

Sub AllCells()
 Columns(1).SpecialCells(xlCellTypeBlanks).Value = "-"
End Sub

 

[coicoc]

Đơn giản thôi, nếu bạn muốn viết - vào ô trống bạn làm như sau: '- Nguyễn Văn A

Nhớ làm thêm dấu ' trên đầu nhé, nếu không thì Excel hiểu là dấu trừ

 

[hoangdanh282vn]

Đơn giản thôi, nếu bạn muốn viết - vào ô trống bạn làm như sau: '- Nguyễn Văn A

Nhớ làm thêm dấu ' trên đầu nhé, nếu không thì Excel hiểu là dấu trừ

Câu trả lời của bạn không đúng với câu hỏi rồi.
Tác giả hỏi là làm sao để điền dấu "-" vào tất cảc các cell rỗng trong cột 1 chứ không phải là làm sao để điền được dấu "-" trong 1 cell.

Sub AddString()
On Error Resume Next
[A65536] = "danh"
Columns(1).SpecialCells(xlCellTypeBlanks) = "-"
[A65536] = ""
End Sub

 

[huyen48v]

Câu trả lời của bạn không đúng với câu hỏi rồi.
Tác giả hỏi là làm sao để điền dấu "-" vào tất cảc các cell rỗng trong cột 1 chứ không phải là làm sao để điền được dấu "-" trong 1 cell.

Sub AddString()
On Error Resume Next
[A65536] = "danh"
Columns(1).SpecialCells(xlCellTypeBlanks) = "-"
[A65536] = ""
End Sub

Bạn hướng dẫn kỹ hơn được không?