Lấy dữ liệu từ cột

[thamtuvn]

Tôi có 1 bảng dữ liệu cột từ A1-->A200 sau:
1
2

4
5


12
...
có một vài hàng trong cột không chứa dữ liệu (blank)
nhờ bà con giúp mình xuất dữ liệu sang một cell khác, chỉ lấy cell nào có dữ liệu, chẳng hạn: 1,2,4,5,12

 

[Hai Lúa Miền Tây]

Tôi có 1 bảng dữ liệu cột từ A1-->A200 sau:
1
2

4
5


12
...
có một vài hàng trong cột không chứa dữ liệu (blank)
nhờ bà con giúp mình xuất dữ liệu sang một cell khác, chỉ lấy cell nào có dữ liệu, chẳng hạn: 1,2,4,5,12

Xuất dữ liệu sang 1 cell khác ? Là Lấy toàn bộ các cell đưa vào 1 cell ? Hay là chỉ lấy dữ liệu những dòng có dữ liệu ?

 

[dat_butmuc]

Đánh dấu cột A -> Ctrl+G -> Alt+S -> M -> OK -> Ctrl+C
Sau đó Ctrl+V (dán) vào chỗ nào bạn muốn !

 

[thamtuvn]

Xuất dữ liệu sang 1 cell khác ? Là Lấy toàn bộ các cell đưa vào 1 cell ? Hay là chỉ lấy dữ liệu những dòng có dữ liệu ?

OK, Lấy toàn bộ các cell trừ cell không có dữ liệu đưa vào 1 cell
Ví dụ: A1: 1; A2: 12; A3-A4:không có dữ liệu ; A4: 20;... có thể nhiều
Kết quả: cell B1 là 1, 12, 20
Cái này mình sử dụng vòng for trong lập trình là ra, nhưng bên excel mình không rành cho lắm, chỉ biết căn bản.

 

[pomete]

Bạn làm giống của Dat_butmuc nhưng phải thay đổi:
Bôi đen cột A --> nhấn Ctrl+G (hiện ra bảng "Go to") --> Bạn chọn mục Special ở phía cuối góc trái --> Trong bảng "Go to special": bạn đánh dấu vào mục "Constants" --> Khi chọn mục "Constants" thì sẽ có 4 vị trí đã đánh dấu sẵn: Number, Text, Logical, Erros. Bạn chỉ đánh dấu vào ô "Number" và ô "Text" --> Nhấn Ok --> Nhấn Ctrl C --> Paste Ctrl+V vào vùng muốn đặt dữ liệu

 

[ndu96081631]

OK, Lấy toàn bộ các cell trừ cell không có dữ liệu đưa vào 1 cell
Ví dụ: A1: 1; A2: 12; A3-A4:không có dữ liệu ; A4: 20;... có thể nhiều
Kết quả: cell B1 là 1, 12, 20
Cái này mình sử dụng vòng for trong lập trình là ra, nhưng bên excel mình không rành cho lắm, chỉ biết căn bản.

Vầy được không:

Function JoinText(sRange As Range, Optional Sep As String = ", ") As String
  On Error GoTo Next1
  With Application.WorksheetFunction
    JoinText = Join(.Transpose(sRange), vbTab)
    GoTo Next2
Next1:
    JoinText = Join(.Transpose(.Transpose(sRange)), vbTab)
  End With
Next2:
  JoinText = Replace(JoinText, " ", vbBack)
  JoinText = Replace(JoinText, vbTab, " ")
  JoinText = WorksheetFunction.Trim(JoinText)
  JoinText = Replace(JoinText, " ", Sep)
  JoinText = Replace(JoinText, vbBack, " ")
End Function

http://www.giaiphapexcel.com/forum/...uối-từ-các-cell-lại-không&p=215560#post215560

 

[dat_butmuc]

Bạn làm giống của Dat_butmuc nhưng phải thay đổi:
Bôi đen cột A --> nhấn Ctrl+G (hiện ra bảng "Go to") --> Bạn chọn mục Special ở phía cuối góc trái --> Trong bảng "Go to special": bạn đánh dấu vào mục "Constants" --> Khi chọn mục "Constants" thì sẽ có 4 vị trí đã đánh dấu sẵn: Number, Text, Logical, Erros. Bạn chỉ đánh dấu vào ô "Number" và ô "Text" --> Nhấn Ok --> Nhấn Ctrl C --> Paste Ctrl+V vào vùng muốn đặt dữ liệu

Không phải ý tác giả muốn vậy đâu => Bài này là muốn nhòm vào một Cell (dùng Join... như Ndu đã trích...)
Lúc đầu tôi cũng không hiểu rõ hết hoặc do tác giả nói chưa rõ nên mới làm theo cách vậy !