Kết hợp 2 cột thành 1 cột; chuyển chữ in hoa thành chữ đầu in hoa.

[271giaiphapexcel]

Các bác giúp em cách nào để kết hợp các cột lại với nhau nhé.
Em dùng hàm PROPER để chuyển chữ in hoa thành chỉ chữ đầu in hoa nhưng lại không được.

Em có gởi kèm file. Em xin cám ơn.

 

[SA_DQ]

Câu I của bạn đây

Option Explicit
Sub Gop2Cot()
 Dim Rng As Range, dRng As Range
 Dim Col As Byte, jJ As Byte, Rws As Long, Zz As Long
 
 Set Rng = [B5].CurrentRegion:               Col = Rng.Columns.Count
 Rws = Rng.Rows.Count:                       Set dRng = Cells(5, "Ic")
 
 For jJ = 2 To Col Step 2
   For Zz = 5 To 5 + Rws
      With Cells(Zz, jJ)
         .Value = .Value & Chr(10) & .Offset(, 1).Value
      End With
   Next Zz
   Set dRng = Union(dRng, Cells(5, jJ + 1))
 Next jJ
' MsgBox dRng.EntireColumn.Address'
 dRng.EntireColumn.Delete
End Sub

 

[271giaiphapexcel]

Cám ơn Bác SA_DQ đã giúp đỡ.
(Bật mí với bác là em đang tập toẹ với VBA như đã hứa ạ.)

 

[SA_DQ]

Đã vậy, bạn thử sức với việc sau:

(Bật mí với bác là em đang tập toẹ với VBA như đã hứa ạ.)

Bạn thử để vòng lặp

For Zz = 5 To 5 + Rws

ra ngoài vòng lặp

For jJ = 2 To Col Step 2

& so sánh xem sao với 2 macro.

Thân ái!

 

[Tran Mui]

Còn câu 2 Bạn dùng Tiện ích tiếng Việt của Thầy Phạm Văn Trung
Thân

 

[anhkietvn]

câu hỏi 2: bạn dùng thử hàm này xem sao nhé

' Ham chuyen doi chuoi ki tu ra chu hoa dau cac tu
' Ten ham : <ProperCase>
' Input:
'       - Src: kieu String -> chuoi text muon chuyen case
' Output: chuoi duoc chuyen sang chu hoa dau moi tu
' Vi du : ?ProperCase("le thi hoang hon") --> "Le Thi Hoang Hon"
Public Function ProperCase(Src)
Dim arr, s
Dim i
    arr = Split(TrimAll(Src), " ")
    s = ""
    For i = 0 To UBound(arr)
        s = s & UCase(Mid(arr(i), 1, 1)) & LCase(Mid(arr(i), 2)) & " "
    Next
    
    ProperCase = Trim(s)
End Function