小白有一段代码两天没整明白，望各位老师详细说明并给改改

chidou168

           小白有一段代码两天没整明白，望各位老师详细说明并给改改。谢谢！祝大家端午节身体安康

13472463805

Sub test()

Dim r, c

r = Mid(Range("h2"), 2, 1) + 0 ’------H2单元格第二位开始取1位，也就是8，+0是为了把值变成数值型吧

c = Left(Range("h2"), 1) + 0 ’-------H2单元格，从左开始取1位，也是8

Cells(r + 2, c + 1) = Right(Range("h2"), 3) ’------单元格（8+2行，8+1列）的值 = H2单元格值从右开始取3位的值

End Sub

至于第二张图，（3    录入表  H2前两位做指定单元格外）没看懂，H2前两位如何指定单元格？

chidou168

13472463805 发表于 2020-6-24 09:41
Sub test()

Dim r, c

谢谢你，详细讲解再试试，如果代码在sheet 2,数值在Sheet 1里显示，应该怎么改动代码。

13472463805

sheet1.Cells(r + 2, c + 1) = Right(Range("h2"), 3) ’这样改就在sheet1的（8+2行，8+1列）也就是把值放入sheet1的[I10]单元格，问题的关键是你要在sheet1的那个单元格放入你需要的值

chidou168

13472463805 发表于 2020-6-28 11:00
sheet1.Cells(r + 2, c + 1) = Right(Range("h2"), 3) ’这样改就在sheet1的（8+2行，8+1列）也就是把值放 ...

谢谢你对我细心讲解.小白想自己学习一下VBA。不知道你对抓网技术怎么，有偿资费但是不多，想找帮我优化一下。

chidou168

首先谢谢13472463805详细讲解，对小白初学帮助。东拼四凑的代码初见模形。