Tự động chèn 1 kí tự bất kì vào đầu từng line trong 1 ô

[giaosucan]

Chào các bác ạ
Em có 1 cell gồm nhiều dòng như dưới đây

Line 1
Line 2
Line 3
Có cách nào để tự động add 1 kí tự bất kì ('+' hay '-' vào đầu mỗi dòng được ko ạ)

Thank các bác nhiều ạ

 

[dmtcvn]

Bạn vào Fomat Cell chọn Custom và viết: "+ "@ hoặc "- "@ là được. (Chắc bạn đánh văn bản và muốn có các gạch đầu dòng)

 

[giaosucan]

Bạn vào Fomat Cell chọn Custom và viết: "+ "@ hoặc "- "@ là được. (Chắc bạn đánh văn bản và muốn có các gạch đầu dòng)

Hi bác em có làm theo cách của bác nhưng chỉ đánh dc 1 dòng như thế này thôi
+ Line 1
Line 2
Line 3
Line 2, Line 3 ko thấy có dấu + ?

 

[dmtcvn]

Cell nào Fomat thì cho kết quả như vậy
Chắc bạn phải chọn hết các cell cần thiết.
Đọc lại thấy bạn đã dùng Alt Enter để xuống dòng. việc này ngoài khả năng của mình. Trước khi có cách khác bạn có thể chỉ Enter thôi thay cho Alt Enter.

 

[giaosucan]

Thank bác có lẽ cái này dùng macro thì dc

 

[Quang_Hải]

Thank bác có lẽ cái này dùng macro thì dc

Bạn dùng hàm tự tạo này

Public Function daudong(cell As Range) As String
Dim dl, kq,i
dl = Split(cell, ChrW(10))
For i = 0 To UBound(dl)
   kq = kq & "+ " & dl(i) & ChrW(10)
Next
daudong = Left(kq, Len(kq) - 1)
End Function

 

[giaosucan]

Bạn dùng hàm tự tạo này

Public Function daudong(cell As Range) As String
Dim dl, kq,i
dl = Split(cell, ChrW(10))
For i = 0 To UBound(dl)
   kq = kq & "+ " & dl(i) & ChrW(10)
Next
daudong = Left(kq, Len(kq) - 1)
End Function

A dc rồi, thank bác nhiều quá, bác rất pro

 

[giaosucan]

Bạn dùng hàm tự tạo này

Public Function daudong(cell As Range) As String
Dim dl, kq,i
dl = Split(cell, ChrW(10))
For i = 0 To UBound(dl)
   kq = kq & "+ " & dl(i) & ChrW(10)
Next
daudong = Left(kq, Len(kq) - 1)
End Function

Bác là cao thủ macro bác cho em hỏi thêm
Em select 1 hay nhiêu ô nào đo
Trong các ô có các kí tự số 1, 2, 3, 4, ..v
Có cách nào để delete tự động những kí tự số này ko ạ

 

[Quang_Hải]

Bác là cao thủ macro bác cho em hỏi thêm
Em select 1 hay nhiêu ô nào đo
Trong các ô có các kí tự số 1, 2, 3, 4, ..v
Có cách nào để delete tự động những kí tự số này ko ạ

Bạn xài macro này là ok

Sub Tach_Lay_Chu()
  Dim VBR As Object, cell As Range
    Set VBR = CreateObject("VBScript.RegExp")
      VBR.Global = True
        VBR.Pattern = "\d"
    For Each cell In Selection
      cell = VBR.Replace(cell, "")
    Next
End Sub

 

[giaosucan]

Bạn xài macro này là ok

Sub Tach_Lay_Chu()
  Dim VBR As Object, cell As Range
    Set VBR = CreateObject("VBScript.RegExp")
      VBR.Global = True
        VBR.Pattern = "\d"
    For Each cell In Selection
      cell = VBR.Replace(cell, "")
    Next
End Sub

Thank bác cách này rất hay