sao chép dữ liệu trong cùng một ô trong excel

tôi có một dữ liệu như Rohit RawatRohit hoặc Pankaj NegiPankajNegi trong cùng một ô .

Câu trả lời:

Xin chào,

Dữ liệu trong trang tính hoạt động

Giả sử rằng dữ liệu nằm trong phạm vi A1: A10

kết quả trong phạm vi B1: B10

(nếu dữ liệu trong D10: D20, kết quả là E10: E20)

tạo một bản sao trước khi bạn chạy mã ....

[chỉnh sửa...]

Macro phụ_01 ()
'Ngày 31 tháng 8 năm 2017
Dim rng As Range
Đặt rng = Range ( "A1: A10") '<< dữ liệu / kết quả trong b1: b10
Dim c As Long
c = Cells.Find (What: = "*", After: = Cells (1, 1), LookIn: = xlFormulas, LookAt: = _
xlPart, SearchOrder: = xlByColumns, SearchDirection: = xlPrevious, MatchCase: = False) .Column
Đối với mỗi r Trong rng
v = Tách (r.Value, "")
Ô (r.Row, c + 5) = v (0)
Ô (r.Row, c + 6) = v (1)
Đặt r1 = Cells (r.Row, c + 6) .Find (What: = v (0), LookIn: = xlValues, LookAt: = xlPart)
Nếu không r1 thì không có gì
r.Offset (, 1) = v (1)
Khác
r.Offset (, 1) = r
Kết thúc nếu
Tiếp theo

rng.Resize (, 2) .EntireColumn.AutoFit '<< dòng mới ở đây ... cột tự động điều chỉnh

Các cột (c + 5).
Các cột (c + 6).
Kết thúc Sub

Câu trả lời:
Xin chào không thể chạy mã này, bạn có thể giúp tôi thực hiện từng bước được không

Câu trả lời:

đầu tiên tôi thực hiện một lt + f11 sau đó chèn -> mô-đun-> sau đó lưu và thoát khỏi cửa sổ vb script sau đó

tôi làm = macro_1

nhưng không có chức năng tạo

và nếu tôi đang chạy macro thì có lỗi thời gian chạy

vậy bạn có thể giúp tôi thực thi từng bước, chạy mã này không

Cảm ơn

Câu trả lời:

Xin chào ROHIT,

hãy xem video này

https://youtu.be/TIJeVwxV0z8 class = "AnswersExternalContent"> class = "video-container">

XXXXXXXXXXXXXXXXXXX

bước 1

Save As, Workbook của bạn có phần mở rộng .xlsm (đã bật macro)

bước 2

1) nhấn ALT + F11 để mở Visual Basic

2) chọn: Chèn > Mô-đun và dán mã ở trên vào bên phải

3) Nhấn ALT + Q để đóng Visual Basic

bước 3

Để chạy macro, hãy nhấn ALT + F8,

chọn ' macro_01' từ danh sách và nhấp vào nút chạy.

hoặc

thêm một nút và gán macro vba

Câu trả lời:
Có lỗi của chỉ số con nằm ngoài phạm vi lỗi thời gian chạy '9': khi tôi đang chạy mã này

Câu trả lời:

điều đó có nghĩa là (trong một hoặc nhiều ô) bạn không để trống trong chuỗi văn bản

thí dụ
trong ô A3
TasosMariaTasos

để tránh lỗi

thử macro này

Macro phụ_02 ()
'Ngày 31 tháng 8 năm 2017
Dim rng As Range
Đặt dữ liệu rng = Range ("A1: A10") '
'kết quả mong đợi trong b1: b4
Dim c As Long
c = Cells.Find (What: = "*", After: = Cells (1, 1), LookIn: = xlFormulas, LookAt: = _
xlPart, SearchOrder: = xlByColumns, SearchDirection: = xlPrevious, MatchCase: = False) .Column
Đối với mỗi r Trong rng
Đặt r1 = r.Find (What: = "", LookIn: = xlValues, LookAt: = xlPart)
If r1 Is Nothing thì GoTo nnext
v = Tách (r.Value, "")
Ô (r.Row, c + 5) = v (0)
Ô (r.Row, c + 6) = v (1)
Đặt r1 = Cells (r.Row, c + 6) .Find (What: = v (0), LookIn: = xlValues, LookAt: = xlPart)
Nếu không r1 thì không có gì
r.Offset (, 1) = v (1)
Khác
nnext:
r.Offset (, 1) = r
Kết thúc nếu
Tiếp theo
rng.Resize (, 2) .EntireColumn.AutoFit
Các cột (c + 5).
Các cột (c + 6).
Kết thúc Sub