[已解决]求助：VBA代码

lucking551

如何通过VBA实现，当新存放位置更变了，对应机台的现存放位置更变为新存放的位置。
如果新存放位置为空，则现存放位置不变。

详细见附件： 新建 Microsoft Excel 工作表.rar (4.13 KB, 下载次数: 18)

2012-5-14 10:12 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

cjainwei

2012-5-14 10:30

用单元格循环的

1. Sub t()
   
2. For i = 3 To Range("B65536").End(xlUp).Row
   
3.     If Cells(i, 4) <> "" Then Cells(i, 3) = Cells(i, 4)
   
4. Next
   
5. End Sub

复制代码

跳转到最佳答案楼层

cjainwei

我理解能力比较差，能否举个例子说明了下问题。

lucking551

cjainwei 发表于 2012-5-14 10:18
我理解能力比较差，能否举个例子说明了下问题。

例如第一台设备XD225,现在存放位置A1更变为最新位置中的值A4，我要写个宏代码，让现存放位置抓取最新位置的值

相当于实现单元格C3函数  =IF(D3="",C3,D3)

cjainwei

用change事件做的

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column = 4 And Target.Row > 2 Then If Target <> "" Then Target.Offset(0, -1) = Target.Value
   
3. End Sub

复制代码

cjainwei

用单元格循环的

1. Sub t()
   
2. For i = 3 To Range("B65536").End(xlUp).Row
   
3.     If Cells(i, 4) <> "" Then Cells(i, 3) = Cells(i, 4)
   
4. Next
   
5. End Sub

复制代码