[已解决]VBA提取需要数据时，怎样带原格式提取，另外编号超过14位时，提取的数据显示不正确

yjwdjfqb · 发表于 2014-10-20 17:39

VBA提取需要数据时，怎样带原格式提取，另外编号超过14位时，提取的数据显示不正确

这个工作薄，功能是，提取需要的药品出来，但有二个问题想请老师们帮帮修改下，谢谢大家了！

1、希望能带原数据源的格式提取数据

2、当前代码，当药品编码超过14位时，数据结果表中，药品编码不能正确的显示。（希望，药品编码超过14位，以至更多位时，能正确的显示药品编码）

请老师们帮帮忙，谢谢大家了！

VBA提取需要的药品.rar (29.79 KB, 下载次数: 12)

yjwdjfqb · 发表于 2014-10-20 20:30

请老师们帮帮忙，谢谢大家了！

yjwdjfqb · 发表于 2014-10-20 20:35

谢谢大家的帮助，我想在原代码上修改，

用选择的方式、选择需要的数据，和选择全部数据列

这儿有肥猫 · 发表于 2014-10-20 21:21

这样？？

这儿有肥猫 · 发表于 2014-10-20 21:22

这样？

zjdh · 发表于 2014-10-20 21:29

本帖最后由 zjdh 于 2014-10-20 21:48 编辑

Sub 提取需要的药品()
  '.............
   With Sheets(myName)
      Sheets("原始数据").Cells.Copy .Cells(1, 1)
      .Cells.ClearContents
      .Columns("A:A").NumberFormatLocal = "@"
      .Range("a1").Resize(n, UBound(drr, 2)) = drr
   .Rows(Range("A65536").End(3).Row + 1 & ":" & 65536).Delete
End With
End Sub

yjwdjfqb · 发表于 2014-10-21 08:37

zjdh 发表于 2014-10-20 21:29
Sub 提取需要的药品()
'.............
With Sheets(myName)

谢谢老师了，是我想要的结果。非常的感谢老师！

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

[已解决]VBA提取需要数据时，怎样带原格式提取，另外编号超过14位时，提取的数据显示不正确

评分