[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『「桁数の違う数字から1つずつ数字を取り出す」[にじ] について』(うさぎ)
投稿
[[[20160304221749]]? 『桁数の違う数字から1つずつ数字を取り出す』(にじ)
について...とても参考になりました。ありがとうございます。
そこで取り出した数字の前に¥を表示させることはできるでしょうか。
A1は通貨記号を使っています。
A B C D E F G H 1 1234 \ 1 2 3 4 2 12345 \ 1 2 3 4 5
宜しくお願い致します。
< 使用 Excel:Excel2016、使用 OS:Windows10 >
必須バックアップ、エラー処理。。。ありません ^^;
Option Explicit Sub main() Dim i As Long, j As Long, y As Long, buf(), rr As Range, r As Range With Worksheets("Sheet1") .Range("C:H").Clear y = 1 Set rr = .Range("A1").CurrentRegion For Each r In rr.Rows If r.Cells(1) = "" Then Exit Sub For i = 1 To Len(r.Cells(1)) ReDim Preserve buf(i - 1) buf(i - 1) = Mid(r.Cells(1), i, 1) Next j = UBound(buf) + 1 .Cells(y, 8 - j).NumberFormatLocal = "\" .Cells(y, 8 - j) = 0 For i = 0 To UBound(buf) .Cells(y, 8 - j + 1 + i) = buf(i) Next y = y + 1 Erase buf Next End With End Sub (隠居じーさん) 2018/10/06(土) 16:01
>A1は通貨記号を使っています。
↑ どういうこと? 表示形式の話?
だとして
B1 =TRIM(LEFT(RIGHT(" \"&$A1,8-COLUMN(A1))))
右と下にコピー
セル位置を変えても、COLUMN(A1)の A1 を変更してはいけません。
以上です (笑) 2018/10/06(土) 16:33
>A1は通貨記号を使っています。表示形式です。説明がうまく出来ず
すみません。B1にはA1から取り出だすための式、教えていただいた
B1 =IFERROR(MID(TEXT($A1,"???????"),COLUMN(A1),1)*1,"")が 入っています。この場合どのようにすればよいでしょうか わかりずらい説明ですみません。
(うさぎ) 2018/10/06(土) 20:02
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.