![](/img/trans.png)
[英]How to change the value of a cell with Excel vba using a cell address that's inside a cell in another worksheet?
[英]Excel Vba, How to change cell value with another cell?
A COLUMN B COLUMN NEW A COLUMN (A -> NEW A)
MN3312 XP XMR123 X123KV XP XMR123 X123KV XP XMR123 X123KV
IX3122 JM EMB105B MVLF JM EMB105B MVLF JM EMB105B MVLF
X891230 ME ROMD2111MD ME ROMD2111MD ME ROMD2111MD
P305875 LKX 81230 R123 KV LKX 81230 R123 KV LKX 81230 R123 KV
PL0123 28-8JMZKWI123NK 28-8JMZKWI123NK 28-8JMZKWI123NK
OXP8482 BKG 143 NKM KLP BKG 143 NKM KLP BKG 143 NKM KLP
Q309650 309 01DIQL ZBNQL 309 01DIQL ZBNQL 309 01DIQL ZBNQL
如果 A 列的單元格值包含 B 列的單元格值,則 A 列的單元格值更改為 B 列的單元格值。
你能通過代碼解決這個問題嗎??...
目的:A 列的單元格值更改為 B 列的單元格值(如果包含 B 列的值)而且,我想使用“for -next”!
請幫我完成它!
大量評論,所以你知道發生了什么:) 只需橫向滾動即可查看。
您需要定義一些變量才能使其正常工作。 我已經把你需要改變的一切都放在了一個地方。
Sub searchSegment()
' loops through all cells in column A, compare segements of cell string to column B, and if found replace column A with column B data
' declare variable types - immutable do not modify
Dim originWB As Workbook ' origin workbook - full name of the file containing data to be searched.
Dim originWS As Worksheet ' origin worksheet - worksheet within origin workbook containing data to be searched.
Dim searchWB As Workbook ' search workbook - full name of the file containing data to use as a search.
Dim searchWS As Worksheet ' search worksheet - worksheet within search workbook containing data to use as a search.
Dim originCol As String ' origin column - column containing data to be searched.
Dim searchCol As String ' search column - column containing data to use as a search.
Dim hdrStatus As Integer ' header status - define if top row contains header or data.
Dim searchSegSize As Integer ' search segment size - consequtive characters making up the search segment.
Dim searchSeg As String ' search segment - piece of data checked against string. not constant / user defined.
Dim i, j, n As Long ' loop variables - used to iterate through loops. not user defined.
Dim lRow As Long ' last row - last row with data found in the origin column. not constant / user defined.
Dim originRng As Range ' origin range - varying location containing string to be searched. not constant / user defined.
Dim searchRng As Range ' search range - varying location containing search string. not constant / user defined.
' variables - mutable ok to modify
Set originWB = Workbooks("SO.xlsm") ' set the name of the origin workbook here
Set originWS = originWB.Worksheets("Summary") ' set the name of the origin worksheet here
Set searchWB = Workbooks("SO.xlsm") ' set the name of the search workbook here
Set searchWS = searchWB.Worksheets("Summary") ' set the name of the search worksheet here
hdrStatus = 0 ' 0 = no header, 1 = header
searchSegSize = 4 ' set number of characters in the search segment
originCol = "A" ' set column of data being searched
searchCol = "B" ' set column of data used as a search
' code - immutable do not modify
lRow = originWS.Cells(originWS.Rows.Count, originCol).End(xlUp).Row ' find the last row in originCol of the originWS object
For i = (header + 1) To lRow ' creates a For loop and declares i as each iteration (i = 1 then i = 2, etc)
Set originRng = originWS.Range(originCol & i) ' sets varying range to locate string to be searched
Set searchRng = originWS.Range(searchCol & i) ' sets varying range to locate string to be used as a search
j = Round(Len(originRng), 0) ' defines number of iterations for second (nested) loop
For n = 1 To lRow ' second For loop to search string in x character segments. searchSegSize defined by user.
If n = 1 Then ' first iteration starts searching string from character 1
searchSeg = Mid(originRng, 1, searchSegSize) ' define what to search for if iteration = 1
Else
searchSeg = Mid(originRng, 1 + n, searchSegSize) ' define what to search for if iteration > 1
End If
If Len(searchSeg) < searchSegSize Then Exit For ' stop if the search segement is smaller than searchSegSize
If InStr(1, originRng, searchSeg) > 0 Then ' if search segment is found then
originRng.Value = searchRng.Value ' replace originCol with newly found data
Exit For ' stop as action has been taken
End If
Next ' iterate to next search segment (nested loop)
Next ' iterate to next cell within defined range for primary loop
End Sub
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.