看到个好的例子，想修改使用，请帮忙

ghfmac

• Private Sub Workbook_SheetActivate(ByVal Sh As Object)
•     If Sh.Index = 1 Or Sh.Index > 12 Then Exit Sub
•     If Sh.[a2] = "" Then
•         Sheets(Sh.Index - 1).UsedRange.Copy Sh.[a1]
•         [c4] = [c4] + [b4]
•         Sh.Name = Sh.Index & "月"
•         If InStr(",1,3,5,7,8,10,12,", "," & Sh.Index & ",") > 0 Then
•             dt = CDate(Year(Date) & "-" & Sh.Index & "-31")
•         Else
•             If Sh.Index = 2 Then
•                 dt = Day(CDate(Year(Date) & "-3-1") - 1)
•             Else
•                 dt = CDate(Year(Date) & "-" & Sh.Index & "-30")
•             End If
•         End If
•         [a2] = "时间：" & Format(CDate(Year(Date) & "-" & Sh.Index & "-1"), "yyyy年m月d日") & "-" & Format(dt, "m月d日")
•     End If
• End Sub
  

里面的 [c4] = [c4] + [b4]想改成C4往下指定的合并行数-3行求和，不知道怎么改，谢谢

ghfmac

朱荣兴 发表于 2019-2-15 08:50
没有附件支持的帖子只能是爱莫能助

版主，我加了附件，谢谢