Câu hỏi về VBA trong Excel

Tôi có một câu hỏi: Tôi đã tạo chức năng nút bấm để dễ sử dụng nhưng tôi cần thay đổi một số thứ mà tôi không chắc phải thay đổi như thế nào?

Bảng tính Dim Ws As

Dim TargetRange As Range

Dim i As Long

Dim Str As String

Dim Arr

Đặt Ws = ActiveSheet

Đặt TargetRange = Ws.Range("A2: A12 ") ' Ở đây tôi cần lấy dữ liệu từ ô C3, đó là khóa trong tệp Excel

Ứng dụng.Màn hình cập nhật = Sai

Đối với mỗi i = TargetRange.Row đến TargetRange.Rows.Count + 1

Str = Replace(Ws.Range("A" & i - 1), " R ", " R ") ' Ở đây tôi cần lấy dữ liệu từ ô C4, đó là khóa trong tệp Excel

Arr = Split(Str, " ")

Arr(UBound(Arr) - 1) = Arr(UBound(Arr) - 1) + 1

Ws.Range("A" & i) = Join(Arr)

Ws.Range("A" & i) = Replace(Ws.Range("A" & i), " R ", " R ") ' Ở đây tôi cần lấy dữ liệu từ ô C4, đó là khóa trong tệp Excel

Tiếp theo tôi

Ứng dụng.Màn hình cập nhật = Đúng

End Sub

Trả lời:
Chào Alvin
Tôi là V. Arya, Cố vấn độc lập, sẵn sàng hỗ trợ bạn. Những thay đổi này sẽ mang lại lợi ích cho bạn.

Đặt TargetRange = Ws.Range("C3") 'Ở đây tôi cần lấy dữ liệu từ ô C3 trong tệp Excel

Str = Replace(Ws.Range("C4"), "R", "R ")'Ở đây tôi cần lấy dữ liệu từ ô C4, đó là khóa trong tệp Excel

Ws.Range("A" & i) = Replace(Ws.Range("C4"), "R", "R")'Ở đây tôi cần lấy dữ liệu từ ô C4, đó là khóa trong tệp Excel

Trả lời:

Chào Alvin
Tôi là V. Arya, Cố vấn độc lập, sẵn sàng hỗ trợ bạn. Những thay đổi này sẽ mang lại lợi ích cho bạn.

Đặt TargetRange = Ws.Range("C3") 'Ở đây tôi cần lấy dữ liệu từ ô C3 trong tệp Excel

Str = Replace(Ws.Range("C4"), "R", "R ")'Ở đây tôi cần lấy dữ liệu từ ô C4, đó là khóa trong tệp Excel

Ws.Range("A" & i) = Replace(Ws.Range("C4"), "R", "R")'Ở đây tôi cần lấy dữ liệu từ ô C4, đó là khóa trong tệp Excel

Có lẽ tôi đã đặt câu hỏi sai, tôi nên viết như thế nào ở bên dưới?

Đặt TargetRange = Ws.Range("A2:A12") Ở đây tôi cần lấy dữ liệu từ ô C3 được nhập trong tệp Excel, "A12" có thể là dữ liệu biến đổi mà tôi nhập vào ô C3.

Str = Replace(Ws.Range("A" & i - 1), "R", "R ") Ở đây tôi cần lấy dữ liệu từ ô C4 được nhập trong tệp Excel, hai "R" này có thể là dữ liệu biến đổi mà tôi nhập vào ô C4.

Ws.Range("A" & i) = Replace(Ws.Range("A" & i), "R ", "R") 'Ở đây tôi cần lấy dữ liệu từ ô C4 được nhập trong tệp Excel, hai "R" này có thể là dữ liệu biến đổi mà tôi nhập vào ô C4