返回列表 上一主題 發帖

將輸入文字貼在原來的後面

  1. Sub 更名()
  2.     ZZ = InputBox("輸入名稱", "請輸入更改名稱")
  3.     If ZZ = 0 Or ZZ = "" Then Exit Sub
  4.     Range("A2") = Range("A2") & ZZ
  5. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 自己害自己,莫過於亂發脾氣。
返回列表 上一主題