excel - 编写一个 Excel 宏来查找和赋值,复制该值并粘贴到单元格中
问题描述
我正在寻找编写一个 excel VBA 宏来
- 在表中查找值“新成员”(名为“array1”)
- 查看并复制找到的项目左侧的单元格 5 个单元格
- 粘贴到单元格 G5
- 如果未找到值“新成员”,则在单元格 G5 中写入“未找到”
我试过各种版本的
Cells.Find("New Member").Activate
ActiveCell.Offset(0, -5).Range("array1").Select
Selection.Copy
Range("????").Select
ActiveSheet.Paste
If aaa = "" Then
MsgBox "nope"
Else
Range("G5").Select
ActiveSheet.Paste
我的vba excel宏技能很新。谢谢!
解决方案
你可以在没有所有选择/激活的东西的情况下做到这一点。
Dim rngFound As Range
Set rngFound = Range("Array1").Cells.Find("New Member")
If rngFound Is Nothing Then
Range("G5").Value = "Not Found"
Else
rngFound.Offset(,-5).Resize(,5).Copy Range("G5")
End If
推荐阅读
- c++ - 尝试保持函数运行直到输入有效数字
- tensorflow - tensorflow Tf.cond 给出意外的输出
- file - 如果文件没有被覆盖,是否有强制 InstallShield 停止?
- java - Spring Boot 在读取第二个数据库时无法解析占位符
- reactjs - 上下文 API 消费者值未定义
- javascript - Laravel/Croppie 2.6.2:如何以 JPEG 而不是默认的 PNG 格式获取输出图像?
- c++ - 继承后重新获得移动可构造性
- c# - EF Core 自定义属性不适用于 modeBuilder.Model.GetEntityTypes() 上的对象类型
- javascript - 使用带有函数的 .call() 遍历元素
- c# - 处理 16 位 TIFF(增加亮度)