ソースを参照

Added missing "End Function"

Toastie 4 年 前
コミット
1712cc81a2
1 ファイル変更3 行追加1 行削除
  1. 3 1
      microsoft/excel/functions/ConcatenateRange.vba

+ 3 - 1
microsoft/excel/functions/ConcatenateRange.vba

@@ -20,4 +20,6 @@ If Len(newString) <> 0 Then
     newString = Right$(newString, (Len(newString) - Len(seperator)))
 End If
 
-ConcatenateRange = newString
+ConcatenateRange = newString
+
+End Function