Travis hỏi:
Tôi đang cố định dạng một số văn bản thành các cột riêng biệt. Văn bản nằm trong một cột như sau:
A Tên công ty A HỘP PO 1 NEWARK NJ 07101 Tên công ty B HỘP SỐ 2 1400 SANS SOUCI PARKWAY WILKES-BARRE PA 18703 Tên công ty C HỘP SỐ 3 CHICAGO IL 60694 Tên công ty D HỘP SỐ 4 CLEARFIELD UT 84015 Tên công ty E HỘP SỐ 5 OGDEN UT 84401 Tên công ty F HỘP PO 6 BALTIMORE MD 21264-4351 Khi tôi định dạng bài kiểm tra thành excel, tôi đã tạo cột này như minh họa ở trên. Tôi muốn biết một công thức mà tôi có thể làm cho dữ liệu xuất hiện trên một hàng thay vì trong nhiều hàng đối với công ty.
Tất cả trên cùng một ROW
A B C Tên công ty A HỘP PO 1 NEWARK NJ 07101 Tôi đã sử dụng vlookups và hlookups và bảng tổng hợp nhưng tôi không thể tìm ra cách lấy ngày nếu theo từng hàng một.
Tôi đã có thể đưa tên công ty xuất hiện từng hàng trong một cột bằng cách sắp xếp và tôi đã tìm ra rằng tôi có thể sử dụng kết hợp vlookup với hlookup để cung cấp cho tôi kết quả tôi đang tìm kiếm nhưng tôi không biết công thức thích hợp để lồng trong tra cứu ether. Tôi cũng đã thử nghiệm một số chức năng DSUM nhưng không có chức năng nào hoạt động với tôi? Vì vậy, xin vui lòng cho tôi biết những gì hoặc làm thế nào để khắc phục sự cố của tôi.
Tôi nghĩ rằng điều này có thể dễ dàng đạt được bằng cách sử dụng macro. Hãy thử cái này.
Sub CopyAcross() Dim i As Long Dim NRow As Long Dim LastRow As Long NRow = 2 'First Row TO COPY, change this if you want i = 2 'First Row where the data appears, I assumed it started in A2 LastRow = Range("A65536").End(xlUp).Row While i <= LastRow Range(Cells(i, 1), Cells(i, 1).End(xlDown)).Copy Cells(NRow, 2).PasteSpecial Transpose:=True 'In here, I'm copying to Column 2, Next availabe Row. You can change the 2 if you want. NRow = NRow + 1 i = Cells(i, 1).End(xlDown).End(xlDown).Row Wend End Sub
