Từ nhiều cột nhập chung vào một cột (1 người xem)

[sep_hatxel]

Mong GPE giúp đỡ mình trường hợp này với:
Mình có một bảng điểm: từ sheet1 điểm từng hệ số được nhập theo các cột khác nhau => Làm sao để chuyển sang sheet2 các điểm từng hệ số được nhập chung vào một cột và viết liền nhau! Mình có làm một ví dụ minh họa Rất mong sự giúp đỡ của các bạn! Ngày mới tốt lành!

 

[sealand]

Mình tham gia là viết 1 hàm UDF con con như thế này nối cho gọn:

Function noi(ByRef Rg As Range) As String
Dim tam
tam = WorksheetFunction.Transpose(WorksheetFunction.Transpose(Rg))
noi = Replace(Join(tam, ""), Application.ThousandsSeparator, ",")
End Function

Cách dùng bạn xem file ví dụ nha

 

[sep_hatxel]

Mình tham gia là viết 1 hàm UDF con con như thế này nối cho gọn:

Function noi(ByRef Rg As Range) As String
Dim tam
tam = WorksheetFunction.Transpose(WorksheetFunction.Transpose(Rg))
noi = Replace(Join(tam, ""), Application.ThousandsSeparator, ",")
End Function

Cách dùng bạn xem file ví dụ nha

Vâng! Cảm ơn bạn rất nhiều! Đúng ý tưởng là như vậy bạn ạ! Nhưng mình còn một số vấn đề nữa Bạn có thể xem hôm mình trường hợp:
- 1/ Nếu ở sheet1 nhập điểm theo kiểu English (United states) ví dụ: 5.5 thì khi sang sheet2 thì đổi theo kiểu French (france) là: 5,5 được không ạ?
- 2/ Từ sheet2 làm sao coppy được dữ liệu đó dán được sang một file excel khác ạ? (hix, mình cần sử dụng dữ liệu này ạ)
-3/ Chân thành cảm ơn bạn

 

[ndu96081631]

Cho dù là gộp nhiều cell thành 1 cell thì ít ra các điểm phải cách nhau bởi 1 khoảng trắng (hay gì đó) chứ sao lại dính chùm thế kia nhỉ? Nhìn chả giống ai

 

[sep_hatxel]

Cho dù là gộp nhiều cell thành 1 cell thì ít ra các điểm phải cách nhau bởi 1 khoảng trắng (hay gì đó) chứ sao lại dính chùm thế kia nhỉ? Nhìn chả giống ai

1/ Vâng! Mình có một chương trình cộng điểm, nhưng khi nhập điểm bằng tay thì yêu cầu nhập liền không cách như vậy sẽ tránh được lỗi khoảng trắng (dấu cách) và thời gian sẽ nhanh hơn rất nhiều!
2/ Khi nhập dữ liệu như vậy rồi chương trình sẽ có phương án tách riêng từng điểm ra ở phần báo cáo không còn co cụm như bạn hiểu đâu! (Hì, có vẻ hơi làm ngược đời một chút, bạn đừng cười nha)
3/ Do một số file điểm của một số Giáo viên trước kia nhập theo từng cột nên bây giờ mình muốn tận dụng các file điểm này nên mới có Yêu cầu như trên mong các bạn giúp đỡ?
- Mong được sự quan tâm giúp đỡ của các bạn! Thân ái

 

[concogia]

Vâng! Cảm ơn bạn rất nhiều! Đúng ý tưởng là như vậy bạn ạ! Nhưng mình còn một số vấn đề nữa Bạn có thể xem hôm mình trường hợp:
- 1/ Nếu ở sheet1 nhập điểm theo kiểu English (United states) ví dụ: 5.5 thì khi sang sheet2 thì đổi theo kiểu French (france) là: 5,5 được không ạ?
- 2/ Từ sheet2 làm sao coppy được dữ liệu đó dán được sang một file excel khác ạ? (hix, mình cần sử dụng dữ liệu này ạ)
-3/ Chân thành cảm ơn bạn

Câu 1: bạn thử sử dụng code này

Public Function Gom(Vung) As String
    Dim I, Tam
        For I = 1 To Vung.Columns.Count
            Tam = Tam & Replace(Vung(I), ".", ",")
        Next
    Gom = Tam
End Function

Câu 2: có nhiều trên diễn đàn, bạn kiếm rồi áp dụng vào bài
Câu 3: "hông" hiểu (đang hỏi bài, tự nhiên cám ơn). Híc
Thân

 

[concogia]

Vâng! Cảm ơn bạn rất nhiều! Đúng ý tưởng là như vậy bạn ạ! Nhưng mình còn một số vấn đề nữa Bạn có thể xem hôm mình trường hợp:
- 1/ Nếu ở sheet1 nhập điểm theo kiểu English (United states) ví dụ: 5.5 thì khi sang sheet2 thì đổi theo kiểu French (france) là: 5,5 được không ạ?
- 2/ Từ sheet2 làm sao coppy được dữ liệu đó dán được sang một file excel khác ạ? (hix, mình cần sử dụng dữ liệu này ạ)
-3/ Chân thành cảm ơn bạn

Câu 1: bạn thử sử dụng code này

Public Function Gom(Vung) As String
    Dim I, Tam
        For I = 1 To Vung.Columns.Count
            Tam = Tam & Replace(Vung(I), ".", ",")
        Next
    Gom = Tam
End Function

Câu 2: có nhiều trên diễn đàn, bạn kiếm rồi áp dụng vào bài
Câu 3: "hông" hiểu (đang hỏi bài, tự nhiên cám ơn)
Nhờ Smod xóa giúp, sao nó gơi 2 lần
cám ơn

 

[sep_hatxel]

Câu 1: bạn thử sử dụng code này

Public Function Gom(Vung) As String
Dim I, Tam
For I = 1 To Vung.Columns.Count
Tam = Tam & Replace(Vung(I), ".", ",")
Next
Gom = Tam
End Function

Câu 2: có nhiều trên diễn đàn, bạn kiếm rồi áp dụng vào bài
Câu 3: "hông" hiểu (đang hỏi bài, tự nhiên cám ơn). Híc
Thân

Vâng! Cảm ơn bạn! Nhờ sự chỉ điểm của bạn mình đã mình đã làm như vậy: dùng copy rồi paste special -> values and number formats
Không biết mình làm như vậy có được không?
- Cảm ơn bạn rất nhiều