Вместо того, чтобы проходить по ячейкам, рассмотрите возможность использования Replace
для всего столбца. Тем не менее, вам нужно перебрать элементы массива примерно так:
Sub Bowdlerize()
Dim BadWords()
BadWords = Array("BadWord1", "BadWord2", "BadWord3")
Dim i As Integer
For i = LBound(BadWords) To UBound(BadWords)
Worksheets("MySheetName").Columns(4).Replace What:=BadWords(i), Replacement:=""
Next i
End Sub
Решение как модульный тест:
public void testURL() throws Exception {
String strUrl = "http://stackoverflow.com/about";
try {
URL url = new URL(strUrl);
HttpURLConnection urlConn = (HttpURLConnection) url.openConnection();
urlConn.connect();
assertEquals(HttpURLConnection.HTTP_OK, urlConn.getResponseCode());
} catch (IOException e) {
System.err.println("Error creating HTTP connection");
e.printStackTrace();
throw e;
}
}
Так как java 5, если я вспоминаю, класс InetAdress, содержит метод, названный isReachable (); таким образом, можно использовать его для создания реализации ping в Java. Можно также указать тайм-аут для этого метода. Это - просто другая альтернатива методу модульного теста, отправленному выше, который, вероятно, более эффективен.