VBA将多个单元格内容按照条件放在一个单元格

yesunhong

如图片，
条件：
当点击Button 1 按钮
B7-H7单元格的内容相加存放在I列单元格
附加条件：
1：B7单元格0:0填充00:00  0:1填充00:01
2：C7单元格AUTO替换数字8  AC替换成数字6

yesunhong

图片更新：

microyip

1. Sub 合并()
   
2.     Dim vData As Variant, nRow As Long, vTmp As Variant
   
3.     With [B7].CurrentRegion
   
4.         vData = .Resize(.Rows.Count + 1, 7).Value
   
5.     End With
   
6.     For nRow = 1 To UBound(vData) - 1
   
7.         vTmp = Split(vData(nRow, 1), ":")
   
8.         ReDim Preserve vTmp(1)
   
9.         vData(nRow, 1) = Format(Val(vTmp(0)), "00:") & Format(Val(vTmp(1)), "00")
   
10.         If vData(nRow, 2) = "AUTO" Then
    
11.             vData(nRow, 2) = 8
    
12.         ElseIf vData(nRow, 2) = "AC" Then
    
13.             vData(nRow, 2) = 6
    
14.         End If
    
15.         vData(nRow, 1) = Join(Application.WorksheetFunction.Index(vData, nRow), "")
    
16.     Next
    
17.     [I7].Resize(UBound(vData) - 1) = vData
    
18. End Sub

复制代码

microyip

附上附件以供参考