(Excel)检查值是否相同，如果相同，则调整相邻单元格
(Excel)检查值是否相同，如果相同，则调整相邻单元格
提问于 2017-05-17 23:50:50
我尝试做的是在一列中创建一个日期列表，并将今天的日期放在特定的单元格(=TODAY)中。如果B列中的日期与我指定的单元格(G12)中的日期匹配，我希望B列中标注日期的单元格右侧的单元格调整为与另一个单元格(F13)中的值相同的值。
因此，如果今天的日期是5/17，我的函数或解决方案将检查该日期的B列，找到具有相同日期的单元格，然后将该日期右侧的单元格的值调整为与单元格相同的值(F13)。因此，如果单元格(F13)的值为56，我的电子表格将检查今天的日期，找到B列中的单元格，并将其右侧的单元格调整为与F13 (56)相同。
我希望这是有意义的。如果需要的话，我在VBA方面有一些经验。我想让它尽可能地自动化。
回答 1
Stack Overflow用户
发布于 2017-05-18 00:01:49
使用AutoFilter筛选B列上的今天日期，如果有可见的单元格，则将C列设置为F13中的值。
With worksheets("sheet1")
If .AutoFilterMode Then .AutoFilterMode = False
With .Cells(1, "A").CurrentRegion
.AutoFilter Field:=2, Criteria1:=date
With .Resize(.Rows.Count - 1, .Columns.Count).Offset(1, 0)
If CBool(Application.Subtotal(103, .Cells)) Then
.specialcells(xlcelltypevisible).offset(0,1) = .parent.cells(13, "F").value2
End If
End With
End With
If .AutoFilterMode Then .AutoFilterMode = False
End With页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/44029561
复制相关文章
相似问题
腾讯云开发者
