有没有谁知道帮住别人写程序的交流平台有什么呀？？

小程序，百度知道就能求到，

如果是大程序，或者麻烦的程序一般没人颂颂给你写的。

那都是有偿服务的，想猪八戒网那样的。就是交易平台。

纯粹交流平台没有。就像你不会帮别人免费做作业一样。别人也同样不愿意做哪些无聊的枯樱返事情没饥。

1楼所述，vlookup就能搞定

如果强行要用返知vba的话，代码也不会很多的

翻译按钮

  'A列一番下

  Dim maxLine As Long

  maxLine = Cells(Rows.Count, 1).End(xlUp).Row

  

  '検索缲り返し

  Dim i As Long

  For i = 3 To maxLine

    If Trim(Cells(i, 1)) <> "" And Trim(Cells(i, 3)) = "" Then

      Dim rng

 漏升消     Set rng = Sheets("翻訳).Range("A3:A" 笑唤& Rows.Count).Find(What:=Trim(Cells(i, 1)), LookAt:=xlWhole)

      If Not rng Is Nothing Then

        Cells(i, 3) = Sheets("翻訳").Cells(rng.Row, 2).Value

      End If

    End If

  Next

删除按钮

    'Rows("3:" & Rows.Count).ClearContents  '内容だけで削除

    Rows("15:" & Rows.Count).Delete Shift:=xlUp  '内容と様式両方削除

---