如果在A列中找到匹配的字符串，将单元格文本从Book1的E和F复制到Book2？
尤文格雷格
我将尽力简洁地解释这一点，如果有什么不对的地方，请插入。
因此，我有一个每月生成的服务器数据的清单电子表格（称为Book1），但是由于此信息会更改，因此有几列会手动更新（E，H，I，J，K）。我需要做的是，如果A列中的主机名相互找到（服务器始终被创建和删除），则在月底将更新的信息复制到下一个新生成的电子表格（称为Book2）。
我有一些完美的VBA，但仅适用于E和F列。我希望有人可以对其进行编辑以复制到E，H，I，J，K上。
Sub test()
Dim sh1 As Worksheet, sh2 As Worksheet, c As Range, fn As Range
Set sh1 = Workbooks("Book1.xlsx").Sheets(1)
Set sh2 = Workbooks("Book2.xlsx").Sheets(1)
For Each c In sh1.Range("A2", sh1.Cells(Rows.Count, 1).End(xlUp))
Set fn = sh2.Range("A:A").Find(c.Value, , xlValues, xlWhole)
If Not fn Is Nothing Then
If fn.Offset(, 4).Value <> c.Offset(, 4).Value Or fn.Offset(, 5).Value <> c.Offset(, 5).Value Then
c.Offset(, 4).Resize(, 2).Copy fn.Offset(, 4)
End If
End If
Set fn = Nothing
Next
End Sub
9月旧库存：
新的10月库存：
谢谢！
格雷格
锅炉制造商
为什么不只是添加c.Offset(, 7).Resize(, 4).Copy fn.Offset(, 7)到您现有的代码中呢？
Sub test()
Dim sh1 As Worksheet, sh2 As Worksheet, c As Range, fn As Range
Set sh1 = Workbooks("Book1.xlsx").Sheets(1)
Set sh2 = Workbooks("Book2.xlsx").Sheets(1)
For Each c In sh1.Range("A2", sh1.Cells(Rows.Count, 1).End(xlUp))
Set fn = sh2.Range("A:A").Find(c.Value, , xlValues, xlWhole)
If Not fn Is Nothing Then
c.Offset(, 4).Resize(, 2).Copy fn.Offset(, 4)
c.Offset(, 7).Resize(, 4).Copy fn.Offset(, 7)
End If
Set fn = Nothing
Next
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
如果在sheet2中不存在从sheet1复制到sheet2的单元格
- 2
如果在列中找到重复的单元格值，则返回值
- 3
Excel：如果在另一列中找到匹配项，则删除文本字符串的一部分
- 4
VBA宏如果在多个单元格中找到该单元格，则
- 5
将活动单元格复制到其他包含字符串的单元格
- 6
calc / excel如果在两个单元格中找到文本并输出文本
- 7
如果在列表数组中找到匹配项，则Excel返回另一个单元格值
- 8
Excel VBA-将单元格字符串拆分为单个单元格并将单元格复制到新工作表
- 9
如果在vba中包含特定字符串，如何遍历单元格并创建新行？
- 10
如果在vba中包含特定字符串，如何遍历单元格并创建新行？
- 11
然后从一个单元格中查找字符串中的文本，然后将值从对应的行复制到另一个单元格中
- 12
循环遍历列中的所有单元格，如果找到匹配项，则复制并粘贴文本
- 13
Google Sheets - 如果多个单元格匹配 THEN 将第三个单元格复制到第四个单元格
- 14
如果列a =“x”，excel将单元格值复制到新工作表
- 15
从Google Form响应表中找到非空单元格后，将公式向下复制到整个列的问题
- 16
VBA：如何从工作表“ DMR”中找到搜索值，然后从找到的搜索值行中将列A的单元格和列D的单元格复制到工作表“搜索”中
- 17
搜索一定范围的文本（如果找到），将单元格复制到电子表格的另一部分
- 18
如果在表中找到MySql，则返回“ I FOUND IT”字符串
- 19
Python-如果在嵌套列表中找到字符串，则返回true
- 20
如果在表中找到MySql，则返回“ I FOUND IT”字符串
- 21
如果在列表中找到字符串，则对其进行过滤
- 22
如果在一行中找到特定模式，则查找并替换字符串
- 23
JS /流星：如果在数组中找到字符串，则返回“ checked”
- 24
如果在测试文件中找到字符串，如何使dos中的find命令失败？
- 25
如果在 value 中找到特定的迭代子字符串 *not*，如何返回值？
- 26
c 字符串：如果在句子中找到一个单词，则输入 ' '
- 27
Excel公式-如果在行中找到值，则返回下一个单元格的值
- 28
将最新更新的单元格从工作表1复制到工作表2
- 29
VBA-将字符串中的前三个字符复制到另一个单元格中
我来说两句