如何解决Excel Vba,如何更改另一个单元格的单元格值?
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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。