请教取指定区域数据右端1位并写在原位置的句法

天地一相

感谢帮助！如题，例如A1:B10单元格有数据，取右端1位写在原来的位置。

fzxba

dim c as range
for each c in range("A1:B10")
c.value=right(c.value,1)
next

天地一相

fzxba 发表于 2022-12-17 12:15
dim c as range
for each c in range("A1:B10")
c.value=right(c.value,1)

先谢。模仿写了这样一句不工作， Range("A2:H39").Value = Right(Range("A2:H39").Value, 1)。我是要加进一个VBA里，已经有不少数据定义了，担心冲突，就想着能否简单到一句能完成我的想法。

天地一相

fzxba 发表于 2022-12-17 12:15
dim c as range
for each c in range("A1:B10")
c.value=right(c.value,1)

谢谢啦，改了下数据标识字母避免冲突，实现了。鲜花随后。