[已解决]请老师帮我写段代码，谢谢

lh442246

xdragon 发表于 2014-6-14 16:17
Union(Columns(1), Columns(2), Columns(4)).NumberFormatLocal = "yyyy/m/d"
加一行设置格式的就行了 ...

你好，我想问下，我在office2010运行时出现运行时错 误1004是为什么？
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$1" Then
     Dim arr, i&, j%, re(1 To 10000, 1 To 6), cnt%, kh$
     With Sheets("sheet1")
         arr = .Range("A1:J" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
     End With
     For i = 1 To UBound(arr)
         If arr(i, 1) = Target.Value Then
              If kh = "" Then kh = arr(i, 2)
              cnt = cnt + 1
              re(cnt, 1) = arr(i, 3)
              re(cnt, 2) = arr(i, 4)
              re(cnt, 3) = arr(i, 5)
              re(cnt, 4) = arr(i, 7)
              re(cnt, 5) = arr(i, 8)
              re(cnt, 6) = arr(i, 10)
         End If
     Next
     Range("B2") = kh
     i = UsedRange.Rows.Count
     If i > 3 Then Range("A4:F" & i).Clear
    Range("A4").Resize(cnt, 6) = re
     Range("A4:F" & cnt + 3).Borders.LineStyle = 1
     Union(Columns(1), Columns(2), Columns(4)).NumberFormatLocal = "yyyy/m/d"
  End If
End Sub