数据提取覆盖的问题

ydf890916 · 发表于 2018-10-12 11:54

A列有一组数，我想提取中间两位，并且覆盖在A列原来的位置上，求大佬们指教。最近刚开始学vba，好多都是懵的

一把小刀闯天下 · 发表于 2018-10-12 12:12

Option Explicit

Sub test()
  Dim arr, i
  arr = [a1].CurrentRegion.Offset(1)
  For i = 1 To UBound(arr, 1) - 1
If Len(arr(i, 1)) > 3 Then
   arr(i, 1) = Left(Right(arr(i, 1), 3), 2)
Else
   arr(i, 1) = vbNullString
End If
  Next
  [b2].Resize(UBound(arr, 1) - 1, 1) = arr
End Sub

abc123281 · 发表于 2018-10-12 12:22

求助123.rar (14.87 KB, 下载次数: 13)

719404338 · 发表于 2018-10-12 13:16

Sub t()
Dim i%, arr
arr = Range("a2:a" & [a65536].End(3).Row)
For i = 1 To UBound(arr)
arr(i, 1) = Mid(arr(i, 1), 2, 2)
Next i
Range("a2:a" & [a65536].End(3).Row) = ""
[a2].Resize(UBound(arr), 1) = arr
End Sub

复制代码

ydf890916 · 发表于 2018-10-12 14:30

719404338 发表于 2018-10-12 13:16

谢大佬~~~~~~~~~

ydf890916 · 发表于 2018-10-12 14:31

一把小刀闯天下发表于 2018-10-12 12:12
Option Explicit

Sub test()

谢大佬~~~~~~~~~感觉这个比我说的考虑的更全面

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

[求助] 数据提取覆盖的问题