Tách dữ liệu từ một dãy (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
T

tv_X

Thành viên mới
Tham gia
1/11/07
Bài viết
21
Được thích
0
Chào các bác,

Hiện tại em đang phải xử lý dữ liệu, tuy nhiên có ca khó cần sự trợ giúp như sau:

1. Cột A có một dãy dữ liệu
Ví dụ: 1993: 1-12, 1994: 2-3,11-12, 1995: 1-12, 1996: 1-12, 1997: 1-12, 1998: 1-12 (thiếu 5,7)

2. Cột B mình cần tách các số của dãy (1-12, hoặc 1-12 (thiếu 5,7)... ra theo mẫu như sau:
1993(1,2,3,4,5,6,7,8,9,10,11,12), 1994(2,3,11,12),1995(1,2,3,4,5,6,7,8,9,10,11,12), 1996(1,2,3,4,5,6,7,8,9,10,11,12), 1997(1,2,3,4,5,6,7,8,9,10,11,12), 1998(1,2,3,4,6,8,9,10,11,12)

Cụ thể yêu cầy tại file đính kèm

Mong nhận được sự trợ giúp của các bác,

Cảm ơn nhiều.
 

File đính kèm

tv_X đã viết:
Chào các bác,

Hiện tại em đang phải xử lý dữ liệu, tuy nhiên có ca khó cần sự trợ giúp như sau:

1. Cột A có một dãy dữ liệu
Ví dụ: 1993: 1-12, 1994: 2-3,11-12, 1995: 1-12, 1996: 1-12, 1997: 1-12, 1998: 1-12 (thiếu 5,7)

2. Cột B mình cần tách các số của dãy (1-12, hoặc 1-12 (thiếu 5,7)... ra theo mẫu như sau:
1993(1,2,3,4,5,6,7,8,9,10,11,12), 1994(2,3,11,12),1995(1,2,3,4,5,6,7,8,9,10,11,12), 1996(1,2,3,4,5,6,7,8,9,10,11,12), 1997(1,2,3,4,5,6,7,8,9,10,11,12), 1998(1,2,3,4,6,8,9,10,11,12)

Cụ thể yêu cầy tại file đính kèm

Mong nhận được sự trợ giúp của các bác,

Cảm ơn nhiều.
Nhấp chuột vào đây để mở rộng...
Dùng thủ công:
  1. Nhấn Ctrl+H, hiện ra cửa sổ 'Find and Replace'
  2. Mục 'Find What' gõ: 1-12
  3. Mục 'Replace with' gõ: (1,2,3,4,5,6,7,8,9,10,11,12), xong nhấn nút 'Replace' phía dưới.
  4. Xóa bớt những số thừa.
Chúc bạn ngày vui.
 
tv_X đã viết:
Chào các bác,

Hiện tại em đang phải xử lý dữ liệu, tuy nhiên có ca khó cần sự trợ giúp như sau:

1. Cột A có một dãy dữ liệu
Ví dụ: 1993: 1-12, 1994: 2-3,11-12, 1995: 1-12, 1996: 1-12, 1997: 1-12, 1998: 1-12 (thiếu 5,7)

2. Cột B mình cần tách các số của dãy (1-12, hoặc 1-12 (thiếu 5,7)... ra theo mẫu như sau:
1993(1,2,3,4,5,6,7,8,9,10,11,12), 1994(2,3,11,12),1995(1,2,3,4,5,6,7,8,9,10,11,12), 1996(1,2,3,4,5,6,7,8,9,10,11,12), 1997(1,2,3,4,5,6,7,8,9,10,11,12), 1998(1,2,3,4,6,8,9,10,11,12)

Cụ thể yêu cầy tại file đính kèm

Mong nhận được sự trợ giúp của các bác,

Cảm ơn nhiều.
Nhấp chuột vào đây để mở rộng...
Nếu chỉ có một quy luật 1-12 thì là theo kiểu quocgiacan.
Còn nó không có quy luật nào cả thì cách tốt nhất là bạn lường trước các dạng có thể xảy ra rồi đưa lên một lần, bạn nên đưa dữ liệu thực với vài chục Cell để các thành viên xem và giúp giải pháp khác (còn không thì cứ phải đi hỏi riết).
 
Lần chỉnh sửa cuối:
Đúng là không theo quy luật cố định ạ,

Em gửi các bác thông tin một số đoạn khá điển hình (trong tổng số 10.000 dòng) em đang có.

Kính nhờ các bác ra tay giúp ạ,

Cảm ơn các bác nhiều,
 

File đính kèm

tv_X đã viết:
Đúng là không theo quy luật cố định ạ,

Em gửi các bác thông tin một số đoạn khá điển hình (trong tổng số 10.000 dòng) em đang có.

Kính nhờ các bác ra tay giúp ạ,

Cảm ơn các bác nhiều,
Nhấp chuột vào đây để mở rộng...
Bạn muốn mọi người làm cho 10.000 dòng mà có vài dòng kết quả mong muốn cũng không đưa lên.
 
tv_X đã viết:
Đúng là không theo quy luật cố định ạ,

Em gửi các bác thông tin một số đoạn khá điển hình (trong tổng số 10.000 dòng) em đang có.

Kính nhờ các bác ra tay giúp ạ,

Cảm ơn các bác nhiều,
Nhấp chuột vào đây để mở rộng...
Mã: 
Sub tach()
Dim i As Long, str As String, str2 As String, arr, darr
arr = Range("A2:A" & [a65000].End(xlUp).Row)
ReDim darr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
    str = Replace(Replace(arr(i, 1), ":", " "), " ", "|")
    With CreateObject("vbscript.regexp")
        .Global = True: .ignorecase = True
        .Pattern = "\d+-\d+"
        For Each Item In .Execute(str)
            str2 = Item
            str = Replace(str, "|" & str2, tach1(str2)): str = Replace(str, "," & str2, tach1(str2))
        Next
        darr(i, 1) = Replace(str, "|", " ")
    End With
Next
[b2].Resize(UBound(arr), 1) = darr
End Sub
Function tach1(str As String) As String
For i = CLng(Left(str, InStr(1, str, "-") - 1)) To CLng(Mid(str, InStr(1, str, "-") + 1, 4))
    tach1 = tach1 & IIf(tach1 = "", "", ",") & CStr(i)
Next
tach1 = "(" & tach1 & ")"
End Function
Cho bạn code này, chắc không đúng hết!!!
 
excel_lv1.5 đã viết:
Mã: 
Sub tach()
Dim i As Long, str As String, str2 As String, arr, darr
arr = Range("A2:A" & [a65000].End(xlUp).Row)
ReDim darr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
    str = Replace(Replace(arr(i, 1), ":", " "), " ", "|")
    With CreateObject("vbscript.regexp")
        .Global = True: .ignorecase = True
        .Pattern = "\d+-\d+"
        For Each Item In .Execute(str)
            str2 = Item
            str = Replace(str, "|" & str2, tach1(str2)): str = Replace(str, "," & str2, tach1(str2))
        Next
        darr(i, 1) = Replace(str, "|", " ")
    End With
Next
[b2].Resize(UBound(arr), 1) = darr
End Sub
Function tach1(str As String) As String
For i = CLng(Left(str, InStr(1, str, "-") - 1)) To CLng(Mid(str, InStr(1, str, "-") + 1, 4))
    tach1 = tach1 & IIf(tach1 = "", "", ",") & CStr(i)
Next
tach1 = "(" & tach1 & ")"
End Function
Cho bạn code này, chắc không đúng hết!!!
Nhấp chuột vào đây để mở rộng...
Bài nầy rất khó giải bằng regexp, Treo giải cho bạn 1 chầu cà fe. Khà khà khà
Chúc bạn 1 ngày vui
 
HieuCD đã viết:
Bài nầy rất khó giải bằng regexp, Treo giải cho bạn 1 chầu cà fe. Khà khà khà
Chúc bạn 1 ngày vui
Nhấp chuột vào đây để mở rộng...
Chầu cafe này không uống được rồi, dữ liệu không đồng nhất với nhau, nên không xử lý hết được, chỉnh lại regexp chút:
Mã: 
Sub tach()
Dim i As Long, j As Long, str As String, str2 As String, arr, darr
arr = Range("A2:A" & [a65000].End(xlUp).Row)
ReDim darr(1 To UBound(arr), 1 To 1)
With CreateObject("vbscript.regexp")
    For i = 1 To UBound(arr)
        str = arr(i, 1)
            .Global = True: .ignorecase = True
            .Pattern = "[,.:\s]+(\d+-\d+)"
            For Each Item In .Execute(str)
                j = 0
                str = Replace(str, Item.submatches(j), tach1(Item.submatches(j)))
                j = j + 1
            Next
            .Pattern = "),("
            darr(i, 1) = Replace(Replace(str, "),(", ","), ")(", ",")
    Next
End With
[b2].Resize(UBound(arr), 1) = darr
End Sub
Function tach1(str As String) As String
For i = CLng(Left(str, InStr(1, str, "-") - 1)) To CLng(Mid(str, InStr(1, str, "-") + 1, 4))
    tach1 = tach1 & IIf(tach1 = "", "", ",") & CStr(i)
Next
tach1 = "(" & tach1 & ")"
End Function
 
excel_lv1.5 đã viết:
Chầu cafe này không uống được rồi, dữ liệu không đồng nhất với nhau, nên không xử lý hết được, chỉnh lại regexp chút:
Mã: 
Sub tach()
Dim i As Long, j As Long, str As String, str2 As String, arr, darr
arr = Range("A2:A" & [a65000].End(xlUp).Row)
ReDim darr(1 To UBound(arr), 1 To 1)
With CreateObject("vbscript.regexp")
    For i = 1 To UBound(arr)
        str = arr(i, 1)
            .Global = True: .ignorecase = True
            .Pattern = "[,.:\s]+(\d+-\d+)"
            For Each Item In .Execute(str)
                j = 0
                str = Replace(str, Item.submatches(j), tach1(Item.submatches(j)))
                j = j + 1
            Next
            .Pattern = "),("
            darr(i, 1) = Replace(Replace(str, "),(", ","), ")(", ",")
    Next
End With
[b2].Resize(UBound(arr), 1) = darr
End Sub
Function tach1(str As String) As String
For i = CLng(Left(str, InStr(1, str, "-") - 1)) To CLng(Mid(str, InStr(1, str, "-") + 1, 4))
    tach1 = tach1 & IIf(tach1 = "", "", ",") & CStr(i)
Next
tach1 = "(" & tach1 & ")"
End Function
Nhấp chuột vào đây để mở rộng...
Chầu ca fe nầy hơi khó
 

File đính kèm

HieuCD đã viết:
Chầu ca fe nầy hơi khó
Nhấp chuột vào đây để mở rộng...
Bài này còn nhiều kiểu dữ liệu bác ah, như bài #4 của tác giả có đưa ra hàng loạt loại chẳng có quy luật cũng chẳng có đáp án :p

Một số loại lung tung beng

1/ 2012: Vol: 57: 1-2, 2013Vol:58 1-2, 2011Vol 56 N.1-2, 2014: Vol 59: 1-2, 2015: Vol 60: 1
2/ 1920-1923: Số 1-17, 1924: Số 18-23, 1925: Số 24-29, 1926: Số 30-35, Số 1/01920, Số 35/1926
3/ Số 1/2012, 2011: Vol 13: 1, 2012:Vol 13: 2- Vol 14: 1, 2013: Vol 14: 2- Vol 15: 1, 2014: Vol 15: 2, 2015: Vol 16 N 2
4/ 1943: Số 1-17, Số 1/1943, Số 17/1943
 
dhn46 đã viết:
Bài này còn nhiều kiểu dữ liệu bác ah, như bài #4 của tác giả có đưa ra hàng loạt loại chẳng có quy luật cũng chẳng có đáp án :p

Một số loại lung tung beng

1/ 2012: Vol: 57: 1-2, 2013Vol:58 1-2, 2011Vol 56 N.1-2, 2014: Vol 59: 1-2, 2015: Vol 60: 1
2/ 1920-1923: Số 1-17, 1924: Số 18-23, 1925: Số 24-29, 1926: Số 30-35, Số 1/01920, Số 35/1926
3/ Số 1/2012, 2011: Vol 13: 1, 2012:Vol 13: 2- Vol 14: 1, 2013: Vol 14: 2- Vol 15: 1, 2014: Vol 15: 2, 2015: Vol 16 N 2
4/ 1943: Số 1-17, Số 1/1943, Số 17/1943
Nhấp chuột vào đây để mở rộng...
Mình đùa vui với dòng đầu thôi, còn mấy cái sau không biết kết quả là gì nên không thể viết code được
Mấy dòng sau có lẽ tác giả muốn đùa với diễn đàn
 
HieuCD đã viết:
Chầu ca fe nầy hơi khó
Nhấp chuột vào đây để mở rộng...
Chầu này thì chịu, pattern của regexp đã nhận được hết các trường hợp xx-xx rồi, nhưng vấn đề khi replace thì chạy kết quả không đúng như 1-12 thì 11-12 cũng bị replace luôn, sữa lại cũng được nhưng mấy dữ liệu còn lại chắc không làm được vì không có quy luật gì hết!!!
 
excel_lv1.5 đã viết:
Chầu cafe này không uống được rồi, dữ liệu không đồng nhất với nhau, nên không xử lý hết được, chỉnh lại regexp chút:
Mã: 
Sub tach()
Dim i As Long, j As Long, str As String, str2 As String, arr, darr
arr = Range("A2:A" & [a65000].End(xlUp).Row)
ReDim darr(1 To UBound(arr), 1 To 1)
With CreateObject("vbscript.regexp")
    For i = 1 To UBound(arr)
        str = arr(i, 1)
            .Global = True: .ignorecase = True
            .Pattern = "[,.:\s]+(\d+-\d+)"
            For Each Item In .Execute(str)
                j = 0
                str = Replace(str, Item.submatches(j), tach1(Item.submatches(j)))
                j = j + 1
            Next
            .Pattern = "),("
            darr(i, 1) = Replace(Replace(str, "),(", ","), ")(", ",")
    Next
End With
[b2].Resize(UBound(arr), 1) = darr
End Sub
Function tach1(str As String) As String
For i = CLng(Left(str, InStr(1, str, "-") - 1)) To CLng(Mid(str, InStr(1, str, "-") + 1, 4))
    tach1 = tach1 & IIf(tach1 = "", "", ",") & CStr(i)
Next
tach1 = "(" & tach1 & ")"
End Function
Nhấp chuột vào đây để mở rộng...


Cảm ơn các bác đã dành thời gian trợ giúp,

Trong điều kiện dữ liệu không có quy luật cố định (được nhập theo ngẫu hứng) thì code của bác excel_lv1.5 đã giúp được em giải quyết được yêu cầu cơ bản, còn các trường hợp còn lại em phải tự đồng bộ lại và xử lý thêm, tuy hơi mất công chút.

Một lần nữa xin chân thành cảm ơn các bác

tv_Xhttp://www.giaiphapexcel.com/diendan/members/excel_lv1-5.1130050/
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

N
tính thể tích bồn dầu hình trụ elip nằm ngang
Trả lời
10
Đọc
47K
pvkiem
P
H
  • Question Question
Tô đậm tiêu đề cho cho các sheet (1 người xem)
Trả lời
1
Đọc
33
Hoàng Tuấn 868
H
vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện. (1 người xem)
Trả lời
18
Đọc
306
tle2003
T
D
Nhờ trợ giúp xác định thứ tự của các từ và cụm từ trong 1 chuỗi văn bản. (5 người xem)
Trả lời
5
Đọc
72
huhumalu
H
GPE-Trợ Lý
Đăng ký tham dự hội thảo tại Hà Nội: Power Query - Công cụ quản lý dữ liệu
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
14
Đọc
2K
GPE-Trợ Lý
GPE-Trợ Lý
1
Vướng mắc về hàm lấy tên đăng nhập máy tính ạ
Trả lời
17
Đọc
477
VetMini
V
GPE-Trợ Lý
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM (2 người xem)
Trả lời
0
Đọc
207
GPE-Trợ Lý
GPE-Trợ Lý
G
Xin Code xóa Module.
Trả lời
10
Đọc
369
GCQ
G
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
16 17 18
Trả lời
348
Đọc
31K
ongke0711
ongke0711
D
  • Đã giải quyết
Quản lý email outlook qua VBA cần giúp đỡ
2
Trả lời
23
Đọc
646
nguyendang95
N
G
Tách công thức ra khỏi chuỗi và tính kết quả?
2
Trả lời
26
Đọc
2K
thuytrangbp28
T
thlpro
Cách lập Công thức tính số ngày nghỉ AL, ưu tiên tính 2024 trước rồi mới tính 2025
Trả lời
8
Đọc
159
bebo021999
B
N
Hàm tăng số đếm theo điều kiện
Trả lời
4
Đọc
82
bebo021999
B
M
Xin giúp đỡ làm công thức điều kiện
    • Yêu thích
Trả lời
3
Đọc
168
tayGa
T
N
Một ví dụ về XLL add-in: Tương tác với Google Gemini dưới dạng công thức bảng tính
    • Thích
Trả lời
2
Đọc
232
nguyendang95
N
K
  • Question Question
nhờ ace giúp đỡ tự động filter và In hàng loạt từng mục trong piviot table
Trả lời
5
Đọc
189
DeTong
D
Trungvt3
Công thức trả về định dạng không như mong muốn và viết phân số trong 1 ô.
Trả lời
5
Đọc
128
VetMini
V
N
Khắc phục lỗi "The picture is too large and will be truncated"
Trả lời
10
Đọc
5K
tle2003
T
C
  • Question Question
Xin hỏi Cách viết chú thích trong vba hiển thị tiếng việt
Trả lời
4
Đọc
200
ongke0711
ongke0711
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước.
    • Thích
2
Trả lời
28
Đọc
8K
Hoàng Tuấn 868
H
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom