Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1356 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【74942】［無題］ 初心者 13/10/29(火) 12:36 質問[未読]
【74943】Re:［無題］ kanabun 13/10/29(火) 14:15 発言[未読]
【74942】［無題］
質問  初心者  - 13/10/29(火) 12:36 -
引用なし
パスワード
   二つの文字列のうち一つの末尾３文字を削って
削った後のものをもうひとつの文字列と結合させ、それを最終行まで繰り返したいたいのですが
末尾が１文字しか消えてくれずうまくいきません
文字列は数字を使ったものです（数値ではありません）
どうすればうまくいくでしょうか？
以下がコードになります

Sub テスト()

　　Dim i As Long
　　Dim maxrows As Long
　　

　　maxrows = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

　　For i = 2 To maxrows
　　
　　Cells(i, 7).Value = Left(Cells(i, 11),Len(Cells(i, 11) - 3))
　　Cells(i, 4).Value = Cells(i, 3).Value & Cells(i, 7).Value
　　
　　Next i
　　
End Sub
【74943】Re:［無題］
発言  kanabun  - 13/10/29(火) 14:15 -
引用なし
パスワード
   ▼初心者 さん：

>　　Cells(i, 7).Value = Left(Cells(i, 11),Len(Cells(i, 11) - 3))
>　　Cells(i, 4).Value = Cells(i, 3).Value & Cells(i, 7).Value

＞ Len(Cells(i, 11) - 3)

これ、カッコの位置がおかしいですね

たとえば、

Dim s As String

　　 s = Cells(i, 11).Value
　　Cells(i, 7).Value = Left(s, Len(s) - 3)

ですよね？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1356 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free