Dữ liệu ở các ô vào một ô (2 người xem)

[TKT]

Anh/Chị làm giúp bài này với, không biết làm được bằng công thức không, nếu được thì tốt, còn không làm VB vậy. Anh/Chị xem file.

 

[ndu96081631]

Làm thử bằng công thức (không hay lắm nhưng bạn cứ tham khảo)
Với dử liệu lớn hơn thì kiểu trích xuất này gặp rất nhiều khó khăn đấy

 

[linhanhhn]

ko tải được file xem thử

 

[TKT]

Cám ơn anh, em muốn hỏi thêm tí, giả sử ô H1 có chữ A; ô I1 có chữ B. Tại ô J1 ta vào công thức: =H1&char(10)&I1. Kết quả là A "hình vuông"B, nhưng nó vẫn thẳng hàng, vậy làm thế nào để A ở trên, B ở dưới.

 

[ndu96081631]

Cám ơn anh, em muốn hỏi thêm tí, giả sử ô H1 có chữ A; ô I1 có chữ B. Tại ô J1 ta vào công thức: =H1&char(10)&I1. Kết quả là A "hình vuông"B, nhưng nó vẫn thẳng hàng, vậy làm thế nào để A ở trên, B ở dưới.

Chọn cell, bấm Ctrl +1, tab Alignment chọn Wrap text

 

[ndu96081631]

Ôi! Máy móc quá! Đã có cột phụ thì cần gì name nhỉ!
Sửa lại file trên, bỏ hết các name

 

[anhtuan1066]

Cái này dùng VBA thì cực kỳ dể dàng:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
   Dim Er, i As Long
   Dim Temp1, Temp2 As String
   If Not Intersect(Range("A1:A1000"), Target) Is Nothing Then
     Er = Range("A1000").End(xlUp).Row
     For i = 2 To Er
       If UCase(Cells(i, 1)) = "X" Then
          Temp1 = Temp1 & Chr(10) & Cells(i, 2)
          Temp2 = Temp2 & Chr(10) & Cells(i, 3)
       End If
     Next
     Range("E10") = Mid(Temp1, 2, Len(Temp1))
     Range("F10") = Mid(Temp2, 2, Len(Temp2))
    End If
End Sub

 

[sealand]

ANHTUAN 1066 thân.
Với VBA bạn có thể nhập dữ liệu trong 1 ô như dưới đây( Tức là thành nhiều dòng trong 1 ô, lưu ý xuống dòng chứ không phải Wrap Text nhé)
Q
H
M
N
Nhưng trong khi nhập trực tiếp vào ô thì làm thế nào nhỉ?

 

[ndu96081631]

Gõ chử Q
Bấm Alt + Enter
Gõ chử H
Bấm Alt + Enter
Cứ thế tiếp tục