求助：按E列的日期复制到另外工作表分列存放？？？

中华美德 · 发表于 2023-7-3 21:52

按E列的日期复制到另外工作表分列存放

R}KK8OPQYVCVKf5@JN.png

liulang0808 · 发表于 2023-7-4 07:45

Sub 按钮2_Click()
arr = Sheets("分公司").UsedRange
Set D = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
Sheets("量").Select
Application.Intersect(Columns("a:x"), ActiveSheet.UsedRange).Offset(2).ClearContents
For j = 3 To UBound(arr)
      D(arr(j, 5)) = ""
      dt = D.Count
      If dt <= 8 And dt >= 1 Then
         c = 26 - dt * 3
         Cells(2, c) = Right(Format(arr(j, 5), "AAA"), 1) & Format(arr(j, 5), "mmdd")
         r = Cells(Rows.Count, c).End(3).Row + 1
         Cells(r, c + 1) = arr(j, 8)
         Cells(r, c - 1) = arr(j, 2)
         Cells(r, c) = arr(j, 3)
      End If
Next
Application.ScreenUpdating = True
End Sub

liulang0808 · 发表于 2023-7-4 07:46

按E列的日期复制到另外工作表分列存放.zip (54.69 KB, 下载次数: 9)
结果填写，没有看明白，猜了一下，供参考

中华美德 · 发表于 2023-7-4 08:36

liulang0808 发表于 2023-7-4 07:46
结果填写，没有看明白，猜了一下，供参考

填写改成复制就好了，因为单元格里面有超链接内容

liulang0808 · 发表于 2023-7-4 10:23

中华美德发表于 2023-7-4 08:36
填写改成复制就好了，因为单元格里面有超链接内容

数组赋值部分，改成单元格拷贝即可

liulang0808 · 发表于 2023-7-4 10:37

按E列的日期复制到另外工作表分列存放.zip (55.27 KB, 下载次数: 1)

中华美德 · 发表于 2023-7-4 12:06

liulang0808 发表于 2023-7-4 10:37

感谢！！！

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

求助：按E列的日期复制到另外工作表分列存放？？？

评分

评分