ACE nào biết viết code gộp ô chỉ dùm với

[thuvov]

Thử đổi dòng

<div class="bbcode_container">
<div class="bbcode_description">Code:

</div>

</div>
</div>
</div>

OK mình đã làm dc rồi,thank bạn rất nhiều

View more random threads:

• Sắp xếp ngẫu nhiên trong Excel ?
• Dò tìm và trả kết quả có điều kiện
• Vẽ biểu đồ
• Nhờ giúp Code mở lần lược tất cả file *.xls trong nhiều thư mục
• Excel 2010 bị lỗi Spelling
• Bài tập access truy xuất từ bảng khác
• HELP : trích dữ liệu động từ website và xắp xếp theo thời gian ( giờ )
• Phần mềm hổ trợ tính các công thức ToolExcel.dll
• Bảng cân đối phát sinh tài khoản không cân
• Xin file kế toán, quản lý công trình xây dựng.

[developers]

Tình hình là mình mới tìm được 1 code dùng để gộp nhiều ô chứa dữ liệu,khi dùng code này thì dữ liệu không bị ghi đè lên nhau nhưng lại nối liền với nhau mà không xuống dòng,ngắt dòng như mình muốn. code đó thế này:
Sub MrgCll()
Dim Cll As Range, Temp As String
On Error Resume Next
If Selection.MergeCells = False Then
For Each Cll In Selection
If Cll <> "" Then Temp = Temp + Cll.Text + _
" "
Next Cll
Selection.Merge
Selection.Value = Left(Temp, Len(Temp) - 1)
Else
Selection.UnMerge
End If
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
End Sub

Mình muốn nó ngắt dòng,xuống dòng như khi chưa gộp ô thì làm thế nào,có ai biết sửa code này như thế nào để làm được không? Mong mọi người giúp đỡ!

[appsmart]

Tình hình là mình mới tìm được 1 code dùng để gộp nhiều ô chứa dữ liệu,khi dùng code này thì dữ liệu không bị ghi đè lên nhau nhưng lại nối liền với nhau mà không xuống dòng,ngắt dòng như mình muốn. code đó thế này:
Sub MrgCll()
Dim Cll As Range, Temp As String
On Error Resume Next
If Selection.MergeCells = False Then
For Each Cll In Selection
If Cll <> "" Then Temp = Temp + Cll.Text + _
" "
Next Cll
Selection.Merge
Selection.Value = Left(Temp, Len(Temp) - 1)
Else
Selection.UnMerge
End If
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
End Sub

Mình muốn nó ngắt dòng,xuống dòng như khi chưa gộp ô thì làm thế nào,có ai biết sửa code này như thế nào để làm được không? Mong mọi người giúp đỡ!

Bạn cho 1 file với 1 ít dữ liệu và kết quả mong muốn sẽ nhanh hơn ấy?

[Vi?tNet]

Tình hình là mình mới tìm được 1 code dùng để gộp nhiều ô chứa dữ liệu,khi dùng code này thì dữ liệu không bị ghi đè lên nhau nhưng lại nối liền với nhau mà không xuống dòng,ngắt dòng như mình muốn. code đó thế này:
Sub MrgCll()
Dim Cll As Range, Temp As String
On Error Resume Next
If Selection.MergeCells = False Then
For Each Cll In Selection
If Cll <> "" Then Temp = Temp + Cll.Text + _
" "
Next Cll
Selection.Merge
Selection.Value = Left(Temp, Len(Temp) - 1)
Else
Selection.UnMerge
End If
Selection.HorizontalAlignment = xlCenter
Selection.VerticalAlignment = xlCenter
End Sub

Mình muốn nó ngắt dòng,xuống dòng như khi chưa gộp ô thì làm thế nào,có ai biết sửa code này như thế nào để làm được không? Mong mọi người giúp đỡ!

Thử đổi dòng

 If Cll <> "" Then Temp = Temp + Cll.Text + _
" " 

Thành vầy

 If Cll <> "" Then Temp = Temp + Cll.Text + ChrW(10)