[已解决]用VBA怎么做到

excel白兔

老师们，这个我以前用的是公式VLOOKUP+left做的，感觉怎么也没VBA好，所以想用VBA做下，还请老师们帮助下呀，谢谢
还有我用VLOOKUP+left做的时候总有错误，就是基础表和总表对比的格式有区别，比如基础表A列示文本或有空格或有隐藏的字符什么，公式就处理不太好了，不知道VBA是否能很好的解决这点。

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-14 12:43

excel白兔 发表于 2017-4-14 10:48
老师这个很好，但是有个问题，基础 表55，80行* 全部科目带入科目试算平衡表表中数据错误，是不是没有精 ...

当时没有考虑最后一行* 全部科目，全部是以前置数字串来判断的，而且截取数字串的方法是以按空格进行分列后得到，
所以* 全部科目截取到的是字符“*”，*是个通配符，所以无法正确获取数据。
如果你表格的内容基本是固定的，而且特例只有这一个* 全部科目的话，请用以下代码：
Sub aaa()
Dim i&, rng As Range, s$, arr
For i = 3 To [a65536].End(3).Row
  arr = Split(Trim(Cells(i, 1)), " ")
  s = arr(0)
  If s = "*" Then s = arr(1)
  Set rng = Sheets(1).Columns(1).Find(s, lookat:=xlPart)
  If Not rng Is Nothing Then Cells(i, 2).Resize(, 4) = rng.Offset(, 1).Resize(, 4).Value
Next i
End Sub

跳转到最佳答案楼层

yanhj

Private Sub CommandButton1_Click()
For i2 = 3 To Sheet2.Range("A65536").End(xlUp).Row
    For i1 = 3 To Sheet1.Range("A65536").End(xlUp).Row
      If Sheet1.Cells(i1, 1) = Sheet2.Cells(i2, 1) Then
         For j = 2 To 5
          Sheet2.Cells(i2, j) = Sheet1.Cells(i1, j)
         Next
      End If
    Next
Next
End Sub

大灰狼1976

以下代码在“科目试算平衡表”内运行

1. Sub aaa()
   
2. Dim i&, rng As Range, s$
   
3. For i = 3 To [a65536].End(3).Row
   
4.   s = Split(Trim(Cells(i, 1)), " ")(0)
   
5.   Set rng = Sheets(1).Columns(1).Find(s, lookat:=xlPart)
   
6.   If Not rng Is Nothing Then Cells(i, 2).Resize(, 4) = rng.Offset(, 1).Resize(, 4).Value
   
7. Next i
   
8. End Sub

复制代码

excel白兔

大灰狼1976 发表于 2017-4-5 10:14
以下代码在“科目试算平衡表”内运行

老师这个很好，但是有个问题，基础 表55，80行* 全部科目带入科目试算平衡表表中数据错误，是不是没有精确查找？能帮我改下代码吗？我在测试下谢谢老师

excel白兔

yanhj 发表于 2017-4-5 08:33
Private Sub CommandButton1_Click()
For i2 = 3 To Sheet2.Range("A65536").End(xlUp).Row
    For i1  ...

谢谢老师的帮助
有个问题为什么我弄个按钮右击设置宏为什么找不到你这个呢？就是简单的说我弄个按钮触发运行代码找不到不到为什么？

大灰狼1976

excel白兔 发表于 2017-4-14 10:48
老师这个很好，但是有个问题，基础 表55，80行* 全部科目带入科目试算平衡表表中数据错误，是不是没有精 ...

当时没有考虑最后一行* 全部科目，全部是以前置数字串来判断的，而且截取数字串的方法是以按空格进行分列后得到，
所以* 全部科目截取到的是字符“*”，*是个通配符，所以无法正确获取数据。
如果你表格的内容基本是固定的，而且特例只有这一个* 全部科目的话，请用以下代码：
Sub aaa()
Dim i&, rng As Range, s$, arr
For i = 3 To [a65536].End(3).Row
  arr = Split(Trim(Cells(i, 1)), " ")
  s = arr(0)
  If s = "*" Then s = arr(1)
  Set rng = Sheets(1).Columns(1).Find(s, lookat:=xlPart)
  If Not rng Is Nothing Then Cells(i, 2).Resize(, 4) = rng.Offset(, 1).Resize(, 4).Value
Next i
End Sub

大灰狼1976

02.<P> </P>请无视，看下面的代码

excel白兔

大灰狼1976 发表于 2017-4-14 12:43
当时没有考虑最后一行* 全部科目，全部是以前置数字串来判断的，而且截取数字串的方法是以按空格进行分 ...

老师这个结果可以，但是我不是很懂这代码的意思，能否帮助我备注出来我自己好好理解理解谢谢老师

大灰狼1976

明天我来注释下

excel白兔

大灰狼1976 发表于 2017-4-17 15:19
明天我来注释下

谢谢老师

Sub aaa()
Dim i&, rng As Range, s$, arr
For i = 3 To [a65536].End(3).Row
  arr = Split(Trim(Cells(i, 1)), " ")
  s = arr(0)
  If s = "*" Then s = arr(1)
  Set rng = Sheets(1).Columns(1).Find(s, lookat:=xlPart)
  If Not rng Is Nothing Then Cells(i, 2).Resize(, 4) = rng.Offset(, 1).Resize(, 4).Value
Next i
End Sub

老师我在您的基础上改了改为什么不对呢？
我有个工作表叫（SAP导出基础表）和  科目试算平衡表完毕   对比我应该怎么改呢老师
Sub aaa()
Dim i&, rng As Range, s$, arr
For i = 3 To [a65536].End(3).Row
  arr = Split(Trim(Cells(i, 1)), " ")
  s = arr(0)
  If s = "*" Then s = arr(1)
  Set rng = Sheets(”SAP导出基础表”).Columns(1).Find(s, lookat:=xlPart)
  If Not rng Is Nothing Then Cells(i, 2).Resize(, 4) = rng.Offset(, 1).Resize(, 4).Value
Next i
End Sub