Tách số và ghép số. Ai giúp mình với

[grantevil]

Bài 1:cả nhà ơi giúp mình với. mình có một chuỗi các số như sau: 1, 2, 3, 4, 5, 6, 11, 12, 13, 111, 2222 mà giời nhiệm vụ của mình là cần là chuyển thành một cột số như sau:
1
2
3
4
5
6
11
...
2222
Bài 2: có một cột số như sau
1
2
3
4
9
10
giờ mình muốn chuyển thành một ô mang tính chất thống kê có dạng như sau: 1-4, 9, 10 (có nghĩa là các số liền nhau sẽ được thay bằng dấu "-", còn nếu không liền nhau thì liệt kê các số đó ra.)
Cả nhà giúp mình với mình rất cảm ơn và hậu tại nếu có đk gặp gỡ

View more random threads:

• Hiển thị Tooltip cho hàm tự lập trong Excel-Macro
• Hỗ trợ nhập liệu cho 2 file cùng lúc
• In nhãn
• Tạo lút lệnh
• Sử dụng Code trong excel
• Trích xuất một chuỗi ngắn văn bản trong nhiều văn bản khác nhau.
• đặt số trên hình vẽ vào ô nhất định
• Ai giúp mình 1 chút
• Tạo hàm người dùng với kết quả trả về là một dãy ô
• Cần giúp - Tạo liên kết giữa các sheet, các file

[tgvhgame]

không ai giúp được mình à

[sownlee]

không ai giúp được mình à

Dùng VBA có được không?

[chutichht]

Bài 1, bạn làm như sau: Bôi đen hàng cần chuyển thành cột-->Copy-->paste special/transpose-->OK

[hoainam100]

Bài 2: có một cột số như sau
1
2
3
4
9
10
giờ mình muốn chuyển thành một ô mang tính chất thống kê có dạng như sau: 1-4, 9, 10 (có nghĩa là các số liền nhau sẽ được thay bằng dấu "-", còn nếu không liền nhau thì liệt kê các số đó ra.)
Cả nhà giúp mình với mình rất cảm ơn và hậu tại nếu có đk gặp gỡ

Chỗ màu đỏ tôi nghĩ phải là 9-10 chứ nhỉ?

[hungnd]

Tôi viết hàm này cơ bản là giải quyết được yêu cầu của bạn. Còn 1 số tình huống khác nếu xảy ra thì chờ các thanh viên khác khắc phục giúp.

Option Explicit


Public Function ThongKe(rng As Range) As String
Dim i As Integer, bd As String, kt As String, tmp1 As String, tmp2 As String
bd = rng(1, 1)
For i = 1 To rng.Rows.Count
    If Val(rng(i + 1, 1) - rng(i, 1)) > 1 Then
        kt = rng(i, 1)
        tmp1 = tmp1 & bd & " - " & kt & ", "
        bd = rng(i + 1, 1)
    Else
            kt = rng(i, 1)
        If Val(bd) = Val(kt) Then
            tmp2 = bd
        Else
                tmp2 = bd & " - " & kt
        End If
    End If
Next i
ThongKe = tmp1 & tmp2
End Function

-------------------------------------------------
Cách dùng: =ThongKe(vung)

[blkaka]

Hiện tại hàm xử lí được các cụm số liền nhau, còn các số đứng lẻ 1
Ví dụ 1,2,5,6,7,8 mình thì hàm vẫn thống kê kiểu kiểu: 1-2,5-5,6-8 mong các bạn hoàn thiện giúp để được: 1-2,5,6-8

[Mynamekiller]

Tôi viết hàm này cơ bản là giải quyết được yêu cầu của bạn. Còn 1 số tình huống khác nếu xảy ra thì chờ các thanh viên khác khắc phục giúp.

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

</div>
</div>
Chưa xong được đâu!
Với dữ liệu như trong file, nếu xóa cell A9 thì kết quả... trật lất

[putadesign]

Chưa xong được đâu!
Với dữ liệu như trong file, nếu xóa cell A9 thì kết quả... trật lất

Thì em bảo cơ bản là giải quyết được thôi mà thầy. Tức code chỉ giải quyết với các ô trong cột có dữ liệu liên tục tăng dần. Mong thầy giúp để hoàn thiện hơn, em nghĩ mãi mà chưa ra cách giải quyết trường hợp sau ở bài #7.

[buidinhsg]

Thì em bảo cơ bản là giải quyết được thôi mà thầy. Tức code chỉ giải quyết với các ô trong cột có dữ liệu liên tục tăng dần. Mong thầy giúp để hoàn thiện hơn, em nghĩ mãi mà chưa ra cách giải quyết trường hợp sau ở bài #7.

Giải pháp:
- Chuyển vùng (hoặc mảng) số thành mảng 1 chiều (nhớ loại bỏ các phần tử rổng)
- Sort mảng 1 chiều này. Bài toán sort mảng 1 chiều có đầy trên GPE, sort number lại càng dễ
- Cuối cùng mới đến phần nối chuỗi