Excel Vba,如何更改另一个单元格的单元格值? [英] 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列的单元格值。
If the cell' value of A Column contains the cell's value of B Column, the cell's value of A column change to the cell's value of B column.
您能找出答案吗?通过代码来解决这个问题?? ...
Could you figure it out by code that problem??...
目标:将A列的单元格值更改为B列的单元格值
(如果包含B列的值)
而且,我想利用 for -next!
AIM: the cell's value of A Column change to the cell's value of B Column (If contains the value of B column) And, I want to make use of "for -next"!
请帮我做到!
推荐答案
评论得很重,所以您知道发生了什么:)只需滚动一下就可以看到它。
Heavily commented so you know what is going on :) Just side scroll to see it.
您将需要定义一些变量才能使其正常工作。我把您需要更改的所有内容都放在一个地方。
You will need to define some of the variables to make this work correctly. I have put everything you need to change in one place.
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
这篇关于Excel Vba,如何更改另一个单元格的单元格值?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!