Tìm kiếm và thay thế, vẫn giữ nguyên dữ liệu cũ (1 người xem)

[khanhnth02]

tôi có nhiều dữ liệu, giờ muốn dùng find and replace. để thêm dữ liệu vào nhưng vẫn giữ nguyên dữ liệu S.lượng
ví du:
[TABLE="width: 393"]
[TR]
[TD]mặt hàng
A1[/TD]
[TD]S.lượng
4[/TD]
[TD]kết quả
=4*12[/TD]
[/TR]
[TR]
[TD]A2[/TD]
[TD]3[/TD]
[TD]=3*12[/TD]
[/TR]
[/TABLE]

 

[Quang_Hải]

tôi có nhiều dữ liệu, giờ muốn dùng find and replace. để thêm dữ liệu vào nhưng vẫn giữ nguyên dữ liệu S.lượng
ví du:
[TABLE="width: 393"]
[TR]
[TD]mặt hàng
A1[/TD]
[TD]S.lượng
4[/TD]
[TD]kết quả
=4*12[/TD]
[/TR]
[TR]
[TD]A2[/TD]
[TD]3[/TD]
[TD]=3*12[/TD]
[/TR]
[/TABLE]

Chỉ cần nghe đến cụm từ thay thế là đã biết không thể giữ nguyên giá trị cũ rồi. Nghĩ cách gì khác đi.

 

[VetMini]

Chỉ cần nghe đến cụm từ thay thế là đã biết không thể giữ nguyên giá trị cũ rồi. Nghĩ cách gì khác đi.

Tôi thì nghĩ hơi khác. Tôi mà hiểu được tìm cái gì và thay thế cái gì thì tôi sử dụng tài đoán ý nghĩ của người khác này lên sàn buôn cổ khiếu chứ ở đây chi cho nghèo.

 

[khanhnth02]

vì Find and replace nên dich là vậy, nhưng tôi muốn tìm và thêm dữ liệu chứ không thay thế. ngày trước tôi đã từng làm nhưng lâu quá rồi quên mất cách. mong mọi người hỗ trợ

 

[khanhnth02]

bôi đen Ô A:1 đến A:10 (có số liệu) và thêm chuỗi câu : " hàng dễ vỡ"

 

[comet_1701]

bôi đen Ô A:1 đến A:10 (có số liệu) và thêm chuỗi câu : " hàng dễ vỡ"

Mình nghĩ bạn nên gửi file đính kèm nên

 

[Quang_Hải]

Mình nghĩ bạn nên gửi file đính kèm nên

Mình thì nghĩ không nên gởi file lên, để đoán cho vui.

 

[nghiaphuc]

vì Find and replace nên dich là vậy, nhưng tôi muốn tìm và thêm dữ liệu chứ không thay thế. ngày trước tôi đã từng làm nhưng lâu quá rồi quên mất cách. mong mọi người hỗ trợ

Vấn đề ở chỗ người khác không hiểu được ý bạn muốn làm gì trong bài này. Thôi thì cứ đoán đại, trật thì đoán lại:
1. Copy cột số lượng sang 1 cột mới.
2. Nhập số 12 vào 1 ô nào đó, copy ô này và Paste Special vào cột mới kia với tùy chọn Multiply.

-----------------------------------
Ặc ặc... Gõ xong mới thấy cái chứ "hàng dễ vỡ" trên kia, vậy là "hàng" nó "vỡ" sạch trơn rồi. Ặc ặc...

 

[Quang_Hải]

Vấn đề ở chỗ người khác không hiểu được ý bạn muốn làm gì trong bài này. Thôi thì cứ đoán đại, trật thì đoán lại:
1. Copy cột số lượng sang 1 cột mới.
2. Nhập số 12 vào 1 ô nào đó, copy ô này và Paste Special vào cột mới kia với tùy chọn Multiply.

Bảo đảm đoán trật vì có diễn giải rõ ràng tại bài số 5

 

[nghiaphuc]

Bảo đảm đoán trật vì có diễn giải rõ ràng tại bài số 5

Bởi vậy em mới nói là "hàng" nó "vỡ" sạch trơn rồi. Hic hic... Dạo này ít lên diễn đàn nên chạy đua chậm quá đi mất.

 

[VetMini]

Chắc chắn bài này phải làm VBA rồi:

Sub CaiGiDo()
For each c in Range("A1:XX1").Cells [COLOR=#008000]' tìm cột có dòng chữ kết quả[/COLOR]
If c.Value = "kết quả" Then
col = c.column
Exit For
End If
Next c
If Cells(2,col).Value = "" Then Cells(2,col).Value = "=4*12"[COLOR=#008000] ' ghi kết quả[/COLOR] [COLOR=#008000]nhưng vẫn giữ nguyên dữ liệu cũ[/COLOR]
If Cells(3,col).Value = "" Then Cells(3,col).Value = "=3*12"
Application.InputBox("Gõ chuỗi ở đây ", "THÊM CHUỖI", " hàng dễ vỡ") [COLOR=#008000]' thêm chuỗi câu : " hàng dễ vỡ"[/COLOR]
Range("A1:A10").Select [COLOR=#008000]' bôi đen A1 đến A10[/COLOR]
End Sub

 

[ndu96081631]

Chắc chắn bài này phải làm VBA rồi:

Sub CaiGiDo()
For each c in Range("A1:XX1").Cells [COLOR=#008000]' tìm cột có dòng chữ kết quả[/COLOR]
If c.Value = "kết quả" Then
col = c.column
Exit For
End If
Next c
If Cells(2,col).Value = "" Then Cells(2,col).Value = "=4*12"[COLOR=#008000] ' ghi kết quả[/COLOR] [COLOR=#008000]nhưng vẫn giữ nguyên dữ liệu cũ[/COLOR]
If Cells(3,col).Value = "" Then Cells(3,col).Value = "=3*12"
Application.InputBox("Gõ chuỗi ở đây ", "THÊM CHUỖI", " hàng dễ vỡ") [COLOR=#008000]' thêm chuỗi câu : " hàng dễ vỡ"[/COLOR]
Range("A1:A10").Select [COLOR=#008000]' bôi đen A1 đến A10[/COLOR]
End Sub

Code này mà thêm đoạn protect sheet + kill file (và gì gì nữa tùy ý) thì không còn gì để nói ---> trên cả người.. cỏi trên luôn
Ẹc... Ẹc...

 

[nghiaphuc]

Chắc chắn bài này phải làm VBA rồi:

Sub CaiGiDo()
For each c in Range("A1:XX1").Cells [COLOR=#008000]' tìm cột có dòng chữ kết quả[/COLOR]
If c.Value = "kết quả" Then
col = c.column
Exit For
End If
Next c
If Cells(2,col).Value = "" Then Cells(2,col).Value = "=4*12"[COLOR=#008000] ' ghi kết quả[/COLOR] [COLOR=#008000]nhưng vẫn giữ nguyên dữ liệu cũ[/COLOR]
If Cells(3,col).Value = "" Then Cells(3,col).Value = "=3*12"
Application.InputBox("Gõ chuỗi ở đây ", "THÊM CHUỖI", " hàng dễ vỡ") [COLOR=#008000]' thêm chuỗi câu : " hàng dễ vỡ"[/COLOR]
Range("A1:A10").Select [COLOR=#008000]' bôi đen A1 đến A10[/COLOR]
End Sub

Code quá hay, đáp ứng 99.9% yêu cầu của tác giả, tuy nhiên cần phải thêm "bẫy lỗi" để khắc phục trường hợp trên sheet không có ô "kết quả", "giả bộ" như thêm câu If col=0 Then col=3 vào sau vòng For