批量改变数据的vba？

[wen_eb]

应该是很简单的问题：有一系列数据，比如a1是1234，a2是2345，a3是3456等等，我想通过一个vba程序，将每个数据中间加个“-”号，1234变成12-34，2345变成23-45等等，怎么做？

[ChinaOBS]

用公式就可以很好解决：=LEFT(A1,2)&"-"&RIGHT(A1,2)

[okexcel]

循环
再用VBA中的 left和right

[wen_eb]

谢谢楼上的朋友们的帮助，chinaobs我发贴的时候就已经用了这个公式，但是不知道为何显示结果为“-”，不信你可以试试，在a1单元格输入1234，然后打开vba编辑器写上
Sub macro1()
ThisWorkbook.Worksheets(1).Range("b1").Value = Left(a1, 2) & "-" & Right(a1, 2)
End Sub
你再运行看看结果。。。

okexcel我也知道，但是我水平不行，可否说具体点？

[fvflove]

'你用我这段代码试试
Sub macro1()
  Dim xSheet As Worksheet
  Dim Index As Long
  Set xSheet = ThisWorkbook.Worksheets(1)
  Index = 1
  
  While Len(xSheet.Range("$A$" & Index).Text) = 4
    xSheet.Range("$b$" & Index).NumberFormat = "@"
    xSheet.Range("$b$" & Index).Value = Left(xSheet.Range("$a$" & Index).Value, 2) & "-" & Right(xSheet.Range("$a$" & Index).Value, 2)
    Index = Index + 1
  Wend
End Sub

[wen_eb]

fvflove，兄弟，你是我的救星，救我两次了！