Tách dòng (3 người xem)
- Thread starter Tran Mui
- Ngày gửi
Người dùng đang xem chủ đề này
nguyanhdien
Thành viên mới
- Tham gia
- 16/10/08
- Bài viết
- 4
- Được thích
- 1
mình không rõ câu hỏi của bạn lắm. nhưng theo mình hiểu thì bạn muốn trong một ô có thể viết 2 dòng tên. đúng không?
nếu đúng thì khi viết xong tên thứ nhất thì bạn nhấn tổ hợp (ALT + enter). rồi viết tiếp tên thứ 2 vào.
thế là bạn được 2 tên trong cùng một ô
nếu đúng thì khi viết xong tên thứ nhất thì bạn nhấn tổ hợp (ALT + enter). rồi viết tiếp tên thứ 2 vào.
thế là bạn được 2 tên trong cùng một ô
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,963
Bài này đúng ra phải dùng VBA, nhưng bất chợt nghĩ ra được 1 công thức
- Tại shéet1, đặt con trỏ chuột vào cell A1 rồi vào menu Insert\Name\Define, đặt 1 name tên là Tach, với công thức tại khung Refers to:
PHP:
=EVALUATE("{""" & SUBSTITUTE(OFFSET($B$7,INT((ROWS($1:1)-1)/2),COLUMNS($A:A)-1),CHAR(10),""";""") & """}")- Gõ xong công thức, bấm tổ hợp phím Ctrl + Shift + Enter
- Quét chọn cùng lúc 2 cell A1:A2 rồi kéo fill công thức xuống dưới và sang phải
Xem file
Lần chỉnh sửa cuối:
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,124
- Được thích
- 17,588
- Giới tính
- Nam
Thử làm "thí thí" bằng công thức, đưa vào name, dài thòn thấy ghê!
Xem cho vui nhé!
Các trả lời là đã thỏa đáng, nhưng tôi muốn hỏi Tran Mui là:
Dữ liệu như file bạn gửi là có "xuất xứ" từ đâu (từ thao tác nào)?
TrungChinhs
Thành viên tích cực
- Tham gia
- 18/2/08
- Bài viết
- 1,475
- Được thích
- 2,470
- Nghề nghiệp
- Công chức
Cảm ơn Ndu và Ba tê. Rất vui vì đã học được từ các bạn nhiều điều bổ ích và còn vui hơn nếu được các bạn giải thích ý nghĩa của các công thức trong Name
1. Công thức trong Name Tach (của Ndu)
=EVALUATE("{""" & SUBSTITUTE(OFFSET(Sheet1!$B$7;INT((ROWS(Sheet1!$1:1)-1)/2);COLUMNS(Sheet1!$A:A)-1);CHAR(10);""";""") & """}")
2. Công thức trong Name Dòng1 và Dòng2 của Ba Tê
=LEFT(OFFSET(Sheet1!$A$7;Sheet1!$A11-1;COLUMNS(Sheet1!$B:C));FIND(CHAR(10);OFFSET(Sheet1!$A$7;Sheet1!$A11-1;COLUMNS(Sheet1!$B:C)))-1)
=MID(OFFSET(Sheet1!$A$7;Sheet1!$A11-1;COLUMNS(Sheet1!$B:C));FIND(CHAR(10);OFFSET(Sheet1!$A$7;Sheet1!$A11-1;COLUMNS(Sheet1!$B:C)))+1;100)
Sáng nay tôi đã xem bài này và cũng đã nghĩ ra cách làm đơn giản hơn nhưng thấy thủ công quá và không còn là Giải pháp Excel nữa. "Lực bất tòng tâm" nên không Post.
đó là: Copy dữ liệu sang Word chọn Menu Data - Convert - Table to tex sau đó copy dữ liệu trở về Excel (nếu muốn các tên ở gần nhau như dữ liệu gốc thì phải chuyển dữ liệu về cùng một cột trước khi chuyển sang Word).
1. Công thức trong Name Tach (của Ndu)
=EVALUATE("{""" & SUBSTITUTE(OFFSET(Sheet1!$B$7;INT((ROWS(Sheet1!$1:1)-1)/2);COLUMNS(Sheet1!$A:A)-1);CHAR(10);""";""") & """}")
2. Công thức trong Name Dòng1 và Dòng2 của Ba Tê
=LEFT(OFFSET(Sheet1!$A$7;Sheet1!$A11-1;COLUMNS(Sheet1!$B:C));FIND(CHAR(10);OFFSET(Sheet1!$A$7;Sheet1!$A11-1;COLUMNS(Sheet1!$B:C)))-1)
=MID(OFFSET(Sheet1!$A$7;Sheet1!$A11-1;COLUMNS(Sheet1!$B:C));FIND(CHAR(10);OFFSET(Sheet1!$A$7;Sheet1!$A11-1;COLUMNS(Sheet1!$B:C)))+1;100)
Sáng nay tôi đã xem bài này và cũng đã nghĩ ra cách làm đơn giản hơn nhưng thấy thủ công quá và không còn là Giải pháp Excel nữa. "Lực bất tòng tâm" nên không Post.
đó là: Copy dữ liệu sang Word chọn Menu Data - Convert - Table to tex sau đó copy dữ liệu trở về Excel (nếu muốn các tên ở gần nhau như dữ liệu gốc thì phải chuyển dữ liệu về cùng một cột trước khi chuyển sang Word).
Lần chỉnh sửa cuối:
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,124
- Được thích
- 17,588
- Giới tính
- Nam
------
Chắc không cần phải giải thích cách dùng các hàm LEFT, MID, FIND, OFFSET, COLUMNS.
Ý của mình khi dùng công thức trên vào trong name là:
Dong1:
- Columns($B:B)= 1, dùng công thức này để khi kéo copy sang phải sẽ có lần lượt là columns($B:C)=2; Columns($B)=3… làm đối số cols cho hàm Offset().
=OFFSET($A$7;$A17-1;COLUMNS($B:B)) = Offset($A$17;0;1) = giá trị trong ô B7
- Char(10) = ký tự Alt+Enter (xuống hàng trong cùng một ô).
=FIND(CHAR(10);OFFSET(Sheet1!$A$7;Sheet1!$A17-1;COLUMNS(Sheet1!$B:B)))-1 = tìm vị trí ký tự xuống hàng nằm trong chuỗi ở ô B7.
=LEFT(OFFSET(Sheet1!$A$7;Sheet1!$A17-1;COLUMNS(Sheet1!$B:B));FIND(CHAR(10);OFFSET(Sheet1!$A$7;Sheet1!$A17-1;COLUMNS(Sheet1!$B:B)))-1) = Left(B7;kết quả của hàm Find() -1) . Không lấy ký tự xuống hàng.
Tương tự: Dong2:
=MID(OFFSET(Sheet1!$A$7;Sheet1!$A18-1;COLUMNS(Sheet1!$B:B));FIND(CHAR(10);OFFSET(Sheet1!$A$7;Sheet1!$A18-1;COLUMNS(Sheet1!$B:B)))+1;100) = Mid(B7; vị trí của ký tự xuống hàng +1, 100). Số 100 này là tôi tự ý đặt ra vì nghĩ rằng không ai có tên dài hơn 100 ký tự.
3. Công thức mảng của ndu… rất tuyệt, tôi tự ngẫm nghĩ có thể tự hiểu, giải thích không nổi.
Chúc Bạn vui.
Lần chỉnh sửa cuối:
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,963
Mình xin giải thích ngắn gọn công thức trong file như sau:
- Name Tach làm nhiệm vụ biến chuổi thành MẢNG (giống hàm Split trong VBA)
- Công thức này chỉ có thể đặt trong name, không thể gõ trực tiếp vào bảng tính, vì có hàm EVALUATE là hàm macro 4
-------------
Từ công thức này, ta có thể cải tiến để tách họ tên (khác với tất cả những gì trước đây đã làm trên GPE)
Chỉ với 1 name:
PHP:
Arr =EVALUATE("{"""&SUBSTITUTE(TRIM($A2)," ",""",""")&"""}")Tách TÊN
PHP:
=INDEX(Arr,,COUNTA(Arr))
PHP:
=IF(COUNTA(Arr)=1,"",INDEX(Arr,,1))
Lần chỉnh sửa cuối:
Một lần nữa vẫn phải nói lời cám ơn các Bạn, đã chỉ giáo.
Trong quá trình làm còn vấn đề nữa cần mọi người giúp:
Trong bảng trước đây từ một ô chỉ có 2 tên, nếu bây giờ có nhiều tên hơn, hay xen lần ít tên hơn, thì làm thế nào?
Mong mọi người giúp ( bảng đính kèm)
Trong quá trình làm còn vấn đề nữa cần mọi người giúp:
Trong bảng trước đây từ một ô chỉ có 2 tên, nếu bây giờ có nhiều tên hơn, hay xen lần ít tên hơn, thì làm thế nào?
Mong mọi người giúp ( bảng đính kèm)
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,963
Nếu lộn xộn thế, tôi nghĩ nên dùng code VBA sẽ tốt hơn (công thức chắc là thua)
Nếu bạn đồng ý giải pháp này, chúng ta sẽ tiếp tục nhé!
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,963
Nếu tất cả các cell đều có số lượng TÊN giống nhau thì vẫn dùng công thức cũ (chỉ sửa lại đôi chút)
Vấn đề ở đây là: Cell thì 2 tên, cell thì 5, 6 tên, công thức e rằng không kham nỗi...
Bởi vậy mới đề xuất với bạn giải pháp VBA ---> Nếu bạn vẫn quyết dùng công thức cho file "lộn xộn" trên thì tôi.. làm không nỗi bạn à!
Lần chỉnh sửa cuối:
- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,963
Đây gữi bạn 2 phương án: Dùng công thức và VBA
Với công thức, tôi chỉ sửa lại cái cũ 1 chút thôi
Riêng về giải pháp VBA thì cách dùng đơn giản hơn:
- Bấm nút Run code
- Một UserForm hiện ra
- Quét chọn dữ liệu nguồn tại khung Source Range
- Chọn 1 cell để đặt dữ liệu lọc tại khung Target Range
- Bấm nút OK để lọc dữ liệu
- Code làm việc như sau:
PHP:
Private Sub SplitCell(SrcRng As Range, TargetCell As Range, Sep As String)
Dim i As Long, j As Long, k As Long, Arr
With WorksheetFunction
For j = 1 To SrcRng.Columns.Count
k = 1
For i = 1 To SrcRng.Rows.Count
Arr = Split(.Trim(SrcRng(i, j)), Sep)
TargetCell(k, j).Resize(UBound(Arr) + 1).Value = .Transpose(Arr)
k = k + UBound(Arr) + 1
Next i
Next j
End With
End Sub
PHP:
Private Sub Com_OK_Click()
On Error GoTo ExitSub
SplitCell Range(SrcRef), Range(TarRef), Chr(10)
ExitSub:
End Sub
PHP:
Private Sub Com_Exit_Click()
Unload Me
End Sub
Bài viết mới nhất
- Question
- Question
