求助

196391689 · 发表于 2012-7-19 21:10

求改代码，如SHEET1 B15有数据则从从B16输入

If Target.Column = 1 And Target.Row > 14 Then
      FAD = ThisWorkbook.Path & "\" & Target.Hyperlinks(1).Address
      SH = Replace(Split(Target.Hyperlinks(1).SubAddress, "!")(0), "#", "")

      VBA.DoEvents
      ATNAM = ActiveWorkbook.Name
      ARR = ActiveWorkbook.Sheets(SH).UsedRange

      'ActiveWorkbook.Close

      ThisWorkbook.Activate



         If UBound(ARR) < 1 Then MsgBox "工作表上没有内容可显示": Exit Sub
Sheets("Sheet4").Cells.ClearContents
Sheet4.Range("A1").Resize(UBound(ARR), UBound(ARR, 2)) = ARR
Application.ScreenUpdating = True



Sheet1.Range("b15").Resize(1, UBound(ARR, 2)) = ARR
Application.ScreenUpdating = True

         End If

End Sub

196391689 · 发表于 2012-7-19 21:10

以此类推一直到B65535

dongqing1998 · 发表于 2012-7-19 22:20

不明白你想达到什么目的

gdsgzhrsh · 发表于 2012-7-19 23:13

请上附件~~~~~~~~~~~~~~~~~~~~~

196391689 · 发表于 2012-7-20 08:43

数据在BOOK3

A5.rar (341.44 KB, 下载次数: 3)

196391689 · 发表于 2012-7-20 20:47

为什么我上了附件都没人反应了呢，这个是为什么呢？？求解啊

		自动登录	找回密码
密码			注册